Top 10k strings from Utility Compilation 65 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
37
14 ;"Routine in ROM";
9 "23658",O:
9 " (0) Exit"
7 "23659",F:
6 THIS ROUTINE IS NON-RELOCATABLE
6 FFFFFFFFFFFFFFFFFF
6 "23659",D:
6 " This routine
6 CURRENT_4
5 \##N#F#"]\"
5 [}\r#s#N#F#
5 Start address:
5 Routine Starts at ";A
5 R"E\*S\###"
5 Press ENTER to Expand the Whole Program
5 No. STATEMENTS :
5 No. OF EXTRA BYTES::}\_:~\W:
5 No. LINES :
5 No. Bytes:
5 Length of Program Only:!
5 LINE NO:NOW RENUMBER PROGRAM
5 First Byte:
5 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM
5 ERROR CODE: ";N$:
5 ENLARGE REM
5 BLOCK COPY
5 Auto-start Line No:
5 Array Name:
5 23635+256*
5 +-*]\"[\*Q\
5 ++F+N+++"]\*S\~
5 ++F+N+++"]\
5 *]\###q#p##"]\
5 *S\##"]\^#V
5 #T]##N#F#~
5 "#";N;": ";
5 ROUTINE # 65 HAS PREVENTED YOU FROM BREAKING INTO THIS PROGRAM
5 CURRENT_5
4 xx-pp,yy-qq
4 to be replaced.
4 s of the
4 ZX SPECTRUM MACHINE CODE TOOLKIT
4 This is Line #";Z
4 ROUTINE NO:
4 RIGHT-SCROLL
4 N:*WINDOW3
4 LEFT-SCROLL
4 FFFFFFFFFFFFFFFFFFFF
4 FFFFFFFFFFFF
4 EEEEEEEEEE
4 DOWN-SCROLL
4 A,B,C$,DUR:
4 @@@@@@@@@@@@@@@@@@@@@
4 ;xx-pp,yy-qq
4 :CURRENT_8
4 :*TPATpat:
4 :*SCREENSCR
4 *(YM-Y0)+Y0
4 *"m";NN;C$(
4 *"m";E;"SUPERCODE3"
4 "23791",F:
4 "16"-G*(N<P);",";
4 " If you choose
4 CURRENT_2
4
3 statement at
3 s,by combining
3 s when logically possible.Also see #64 #90,#100,#103h."
3 s the no: of
3 s the address of the first
3 s RAMTOP to its original value, zeroes the entire memory & resets System Variables,UDGs & stack."
3 s & statements in a prog. Restart SUPERCODE with
3 routine,& let x=no: after LD,de.Use #115 with a higher start address & x =no: of bytes.The file should
3 quotes to save space.Also see #64,#82 & #100."
3 prog autostart, enter 1
3 part2 of your program with the header of another prog, by manipulating Record/Pause keys on taperec.Call this routine in part1,& immediately after,call routine115.Part2 will now auto-
3 p,q if bytes) Use the same
3 out these Instructions.
3 it to a different address, >23900 so it does not overlap with the System variables."'" (c)To
3 it back with
3 is to be execu- ted.Enter
3 is possible:use
3 ing the two parts."
3 in non-deletab-le lines:the listing vanishes 5)Autostart by using
3 from Part1,but anyone who attempts to
3 etc. Then
3 ed,the BASIC will autorun,& will start the
3 ed came from tape/Mdrve,
3 each part immediately before saving the next one:this ensures that there will be no delay between
3 d, it must be relocated by the samenumber of bytes."'"(2)It is possible to relocate # 22,23,71&76 too,but only to add-resses which are multiples of 256 away from the original add-resses.Proceed as follows: Get the page of the routine,& press Q to quit.The original address is A - say you want to relocate it to A+256*ZZ,where ZZ is a +/-integer.";
3 d into 62866 & 62867 respectively. The 4 columns are addr,contents in dec+hex &
3 at ANY position X,Y on the
3 as well as resets
3 are set up as UDGs. To return to usual UDGs,
3 address from which
3 able). Use N to exit.
3 a higher RAMTOP first."
3 a headerless file, disassemble its
3 a RAMTOP belowZ &
3 ZX INTERFACE1 MUST BE ATTACHED
3 Z2=235
3 Z2=231Enter:- 9990
3 Z2=229
3 UMP PAGE#/
3 UIT AND EXAMINE LINE 1210
3 TO SEE HOW THIS WAS DONE,";
3 THERE HAS BEEN A RECORDING ERROR
3 SUPERCODE TOOLKIT
3 S U P E R C O D E
3 Routine Ends at ";A+B-E;
3 Recording OK
3 ROUTINE IN ROM
3 ROUTINE #";N;"
3 Q,E;"This routine
3 Q,D;" The Spectrum doesn't check if there is enough space free in its memory before
3 Part2 by other means will crash the computer."
3 P,D;" To break into autostart progs, (a)Instead of
3 P,D;" (a)To check whether a ZX Inter- face1 is connected,see whether or not an error is produced if an instruction like
3 ON /OFF checkerboard on the
3 NON-RELOCATABLE ... use L
3 NO: ROUTINE
3 J;"----> ";
3 I;"Less Sig More Sig":
3 H,D;" The ZX Microdrive spends most of its time trying to locate a file - actual loading is swift. 2 ways of saving files so that they can be accessed faster are (a)
3 GGGGGGGGGGGGGGGGGGGG
3 GGGGGGGGGGGG
3 G,D;"1)Make line1 1
3 Freddy A Vachha Vic B Rumsey
3 Enter Routine No:
3 Enter Index Page No:
3 D,D;A$;A$;A$;A$:
3 Copying copies is FORBIDDEN
3 COMPRESS NUMBERS
3 ANY OTHER KEY
3 A$;A$;A$;A$:
3 >1 copies of the file on the same cartridge:for x copies,do
3 :if not,only 1 of the copies might be erased."'" (b)When saving different parts of the program,
3 :CURRENT_7
3 :*SCREEN SCR
3 9990, & proceedto
3 56777,Speed(from 1=Fast to 255=Slow):if too fast you might be unable to read it. Call the routine either before running program(ignoring the initial display)or during the program.TRACE remains ON until you enter
3 23788.If = Program length found with #104 then it came from a MicroDrive"
3 23787+256*
3 23676,255.";
3 23676, 223
3 23670 & 23671 give the less sig: & more sig: bytes respectively."
3 23659,0 at prog start - the effect is that of no:5)."
3 23636.If=23755,it hasn't been paged in so far."'" (c)To check if the program just
3 23636,92.3)Use #59,#98,call #65/66 to disable BREAKs & #68 for nondeleta- ble
3 23636,150. To return to normal
3 23636),100. You can RUN but not LIST prog until you
3 23635+256 *
3 23607, 60.";
3 23607, 223
3 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256(THIS IS CURRENTLY 0/223). TO RETURN TO THE USUAL
3 23552,RAMTOP-23550-F to save your program disguised as bytes- it will autostart at the first line."'" Also see #104.";
3 23550,Address of LAST byte of
3 120"'"Then enter
3 000022222222
3 0 restarts"
3 .Keeping the
3 - 23549. When the
3 ,use routine 87 to find its
3 ,to the given address,a headerless file"
3 ,this routine merges a
3 , on an empty Spectrum,to
3 , which saves space but reduces speed. 0 is replaced by NOT PI. Also see #64,#82,#90,#103,#104. To save even more space,replace all commonly occurring numbers (ie 0,1,2,10 etc)by variables, defined at the start. Routine #72 is useful for locating no:s"
3 *ing:if a program is long/RAMTOP is low it could crash when you try to
3 *ing long programs.If any message besides 0 OK appears,shorten the prog: or
3 *(XM-X0)+X0
3 *""m"";n;Name$
3 * it.That would lose the whole program.Instead,call this routine before
3 * ""m"";n;Name$(
3 )to Tape/Microdrive,
3 ). To access a routine whose no: is known, press
3 ) to restart. To get this routine's details another time, press
3 (same number),0.2)
3 (Index). Use ENTER to turn pages To access the next routine in the Index, press
3 (1)Using PAUSE"'"(2)W/out PAUSE
3 (1)Reset the Spectrum.Put a new cartridge in Microdrive#1"'"(2)Enter
3 '"This routine will be saved with the provisional name
3 & statement no: currently being executed.
3 #4; is executed(use with r.no:65) This pages in the shadow ROM, if present."'" (b)To check if the shadowROM is paged in,
3 # command does
3 "OK,the name is
3 "Further Reading: Programming the Z80 (R.Zaks,ISBN 0-89588-094-6) Complete SpectrumROMDisassembly (I.Logan&F.O'Hara,ISBN 0-86759- 117-X)":
3 "And now at slow speed":
3 "9",H;"To call this routine, use";
3 "9",D;" If the 2 byte equivalent of X = L(Less)/M(More) sig: bytes,then L+256*M=X.The less significant byte comes 1st. This routine is an instant converter of numbers from 0-65535 to their 2 byte equivalents.To convert X to its 2 byte equiv.,enter
3 "64884",M:
3 "60879",D:
3 "60878",J:
3 "60020",F:
3 "56777",E:
3 "4)Embed hidden colour CHR$ to set
3 "2590"*(N$="L")
3 "234"-Z,D:
3 "20"*(NMAX=F)
3 "2.3025"):
3 "111"),D;"
3 "109"),H;"
3 "1";"SC3.5-2"
3 "''"Define Z1,Z2:-"'"For
3 "''"(1)To move a Relocatable Routineso that it starts at address Z,first
3 " To help with
3 " This routine waits till a key (whose CODE will be put in L)is pressed.";
3 " This routine undoes the effect of #98, to allow lines of a CONFUSEd program to be EDITed/ altered."
3 " This routine simulates a power- off: ie, it not only does
3 " This routine replays what #77 recorded. It is probably best to use your cassette-recorder (MIC socket) to amplify the sound."
3 " This routine replaces numbers in the program by VAL
3 " This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #101)have been
3 " This routine loads information stored in memory into an auto- created
3 " This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine."
3 " This routine deletes all hidden colour
3 " This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details."
3 " This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed."
3 " The routine speeds up+contracts programs into the minimum no:of
3 " The routine
3 " The free space F from the last Variable to RAMTOP is printed. Use
3 " THIS IS AN EXAMPLE OF THE SCIFI
3 " Routines 94 to 97 change the case (upper/lower)of strings or of the entire listing ( except strings),as specified.Note that an effective way of switching case from within programs is to POKE 23658,0 (LO) or 8(HI)."
3 " For transfer of
3 " Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes"
3 " A set of accented
3 "
3 saves a screen,
3 recalls it.
3 messages."
3 is now called
3 OVERPRINT
3 ERR+1,0'.Any BREAK/ error will now cause a crash. 6)
3 1.The 2 byte equivalents(see # 101)of the starting address of the memory & the no: of bytes must be stored in 63209/10 and 63206/07 respectively."
3 (Repeat)."'" For a demo, press
3 (Quit). Use
3 (Number).":
3 (Demo)."'" To return to the Index, press
3 ( Location Change ). For BASIC, press
3 the cursor is pointing to.";
3 but also
3 X,Y;""Optional Message"";Variable The method works with
3 BASIC programs."'" (b)To
3
2 variables"'" (3) Numeric Arrays"'" (4)
2 value (56 initially)."'"
2 to the bottom 2
2 to the lower X (0<X<25)
2 to be located":
2 this routine before loading Incidentally, to check if your Spec is Issue3,
2 this rout -ine within(using
2 the following:-"'"
2 the 2- byte equivalent(see #101)of the address of the
2 that is to be transformed,into ";:
2 t(n)=y(n):
2 such lines."
2 start in mem."
2 sets like the SCIFI in #79).
2 s. Also see #82,#90,#100,#103h"
2 s(n)=x(n):
2 s will not work if
2 s which are stored in RAM(ie,UDGs or alternative
2 s to 23813, not 23755
2 r(n)=y(n):
2 q(n)=x(n):
2 perewod9~isel9iz9
2 p(n)=y(n):
2 on all 24 lines of the
2 of the same
2 of bottom two
2 of BASIC containing a prespecified sequence of
2 of filename with trailing
2 of a given
2 o(n)=x(n):
2 load"":run
2 l(n)=y(n):
2 k(n)=x(n):
2 j(n)=y(n):
2 is renumbered(except for arguments like 2.8 or N+3,which are high- lighted.If arg
2 in a BASIC program by another
2 i(n)=x(n):
2 h(n)=y(n):
2 g(n)=x(n):
2 for another
2 f(n)=y(n):
2 existing line no:,the next valid line no: is used.Cal -culated GOTOs etc are highlit.":
2 ed/reset Spectrum. (5)Press
2 ed into a Spec with shadow ROM paged in,as the prog
2 e(n)=x(n):
2 d(n)=y(n):
2 d into 57124/5);if not,you will
2 commands with
2 co-ordinates of the";'" top left hand corner of the box
2 c(n)=x(n):
2 b(n)=y(n):
2 at any position on the screen: ie, to find the CODE of the character printed
2 at any position on the screen: ie, to find the
2 areutilised.)":
2 a(n)=x(n):
2 ________"'
2 ZX INTERFACE 1 ATTACHED
2 Z=A+G-F*(N=
2 Z;" /"'" ";Z+1
2 Z if from Microdrive).If anaddress >23800 is to be
2 X-3,0 The program will work provided you do not
2 X+1,0. To do this to other lines, first find their address X using routine 88, then
2 UPPER-CS PROGRAM
2 UP-SCROLL",T
2 UNI-NOTE SOUND-GEN
2 Transfer OK"'"
2 TRACE VARI-SPEED
2 TOP/MID RIGHT-SCR
2 TOP/MID LEFT-SCR
2 TOP RIGHT-SCROLL
2 TOP LEFT-SCROLL
2 TO SEE HOW THIS WAS DONE, EXIT & EXAMINE LINES 9278 TO 9286
2 TAPE HEADER READER
2 Start Addr 2
2 Space (1-255)"
2 SUPERSOFT SYSTEMS
2 SUPER-RENUMBER
2 STAR/RING DRAW
2 SHUTTER RIGHT-SCROLL
2 SHUTTER LEFT-SCROLL
2 SAVE*""m"";1;
2 S with Interval I
2 Routine Length is ";B;" bytes
2 Routine Ends at ";A+B-1
2 ROUTINE ";C$'" IS NOW CALLED
2 RIPPLE RIGHT-SCROLL
2 RIPPLE LEFT-SCROLL
2 REPLAY SOUND
2 REFLECT Y-AXIS
2 REFLECT X-AXIS
2 RECORD SOUND
2 RANDOMIZE USR ";A
2 RAM SIZE: 48K"''"PROGRAM LOADED FROM CASSETTE
2 Q,E;"Programs with m/c in
2 PROTECT PROGRAM
2 PROGRAM",D
2 PROGRAM LENGTH
2 PRINT;: RANDOMISE USR 60222
2 POKE NUMBERS
2 PIXEL UP-SCROLL
2 PIXEL RIGHT-SCROLL
2 PIXEL LEFT-SCROLL
2 PIXEL DOWN-SCROLL
2 PIXEL BOXRGHT SCROLL
2 PIXEL BOXLEFT SCROLL
2 PAINT-FILL
2 OBLIQUE SCROLL-OFF
2 O,E;"In order to make the FIRST line of your program non- deletable
2 NON-DELETABLE
2 NO MORE OCCURRENCES
2 NEXT DATASECTOR
2 NEXT DATARECORD
2 NET CHANNEL
2 MONOCHROME PROGRAM
2 MID/LOW RIGHT-SCR
2 MID/LOW LEFT-SCR
2 MID RIGHT-SCROLL
2 MID LEFT-SCROLL
2 MICRODRIVE VERSION by F Vachha
2 MICRODRIVE
2 MEMORY AVAILABLE
2 MDRVE DIAGNOSIS
2 M,E;"To make a
2 LOWER-CS PROGRAM
2 LOWER UP-SCROLL
2 LOW RIGHT-SCROLL
2 LOW LEFT-SCROLL
2 KILL CONDENSER
2 J,H;"Routine Length is ";B;" bytes
2 If this is OK, press enter.If itis not, enter the new name (notethat only the first ten
2 INITIALISE
2 INDEX PAGE ";(
2 HEX->DEC CONVERTER
2 HEADERLESS FILES
2 GGGGGGGGGGGGGGGGGGGGGGGG
2 GGGGGGGGGGGGG
2 Freddy A Vachha & Vic B Rumsey
2 FREE-SCROLLER
2 FOREIGN ACCENTS
2 FFFFFFFFFFF
2 F.VACHHA BSc
2 EXPAND PROGRAM
2 EEEEEEEEEEEEEEEE
2 DUAL-NOTE SOUND-GEN
2 DOWN-SCROLL",T
2 DISKED BY DIMIKSOFT
2 DEC->HEX CONVERTER
2 CONTRACT PROGRAM
2 CHR$ SCRAMBLE
2 BLOCK MEMORY INSERT
2 BCCCCCCCCCCCCCCCCCCF
2 BBBBBBBBBBBBBBBD
2 Arrays"'" (5) FOR..NEXT control variables"'" Also see #70.";
2 AWAIT KEYPRESS
2 APPEND STATEMENT
2 ANALYSE PROGRAM
2 ANALYSE MEMORY
2 ADAPT PROGRAM
2 A/C/D/E/I/J/L/M/N/P/Q/R/S/T
2 <~ffffff~<
2 ;"navmite klawi{u dlq prodolveniq":
2 ;"UND CHARAKTERFUER";
2 ;"To say the 2 byte equivalent of X is L(Less)/M(More) sig: bytes means that 256 * M + L = X . This routine permits instant conversion of a number from 0 - 65535 to its 2-byte equivalent. To convert X into its 2-byte equivalent, enter RANDOMISE X.
2 ;"To save this routine, use";
2 ;"To renumber lines starting with S using an interval I, first POKE 59580,I: POKE 59582,S-256* INT(S/256):POKE59583,INT(S/256) All GOTOs,GOSUBs,LISTs,LLISTs, RESTOREs,SAVE...LINEs & #Ns are renumbered(except for decimal/ calculated arguments & REMs).If the arg
2 ;"To help with PRINTing/PLOTting, this routine prints a BRIGHT ON /OFF checkerboard on the screen"
2 ;"To delete all lines from a to b POKE 23728, a - 256*INT(a/256) POKE 23729, INT(a/256) RANDOMISE b":
2 ;"To call this routine, use";
2 ;"This routine will switch all flashing squares to steady & vice versa. This is hence very different from routines 32/33."
2 ;"This routine will switch all bright squares to normal & vice versa. This is hence very different from routines 34/35."
2 ;"This routine waits till a key (whose CODE will be put in L)is pressed.":
2 ;"This routine undoes the effect of #98, to allow lines of a CONFUSEd program to be EDITed/ altered.":
2 ;"This routine swops all chara- cters of a given CODE with all characters of a 2nd given CODE. POKE 63903, Old CODE POKE 63905, New CODE"
2 ;"This routine shortens & speeds up your program by deleting all REM statements in it. Also see #41,#82,#90 & #100.":
2 ;"This routine replays what #77 recorded. It is probably best to use your cassette-recorder (MIC socket) to amplify the sound.":
2 ;"This routine replaces numbers in the program by VAL String, which saves space but reduces speed. 0 is replaced by NOT PI. Also see #41,#64,#82,#90":
2 ;"This routine prints the address of the first character in the line the cursor points to.":
2 ;"This routine prints out both the no: of lines & statements in the program. If you try this out, use GOTO 9001 to restart."
2 ;"This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #61) have been POKEd into 62866 & 62867 respectively. The 4 columns are address, contents in decimal & hex & CHR$ (where printable).":
2 ;"This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ;
2 ;"This routine lists all (1) Numeric variables (2) String variables (3) Numeric Arrays (4) String Arrays (5) FOR..NEXT control variables"
2 ;"This routine inserts a given number into a block of memory. POKE 63796, No: of bytes POKE 63798 (less sig) & 63799 (more sig), Start Address POKE 63801, No: to be inserted"
2 ;"This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine.":
2 ;"This routine enables you to determine the
2 ;"This routine deletes hidden colour items, thus saving space Also see #64,#82 & #100":
2 ;"This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details.":
2 ;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit to BASIC. When called from #92(Hex Loader) only the last 2 digits are considered.":
2 ;"This routine converts decimal no:s from 0 to 65535 to hex. It clears the screen & prompts 'D:' - now ENTER the dec no:. Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit to BASIC.":
2 ;"This routine contracts programs into the minimum no: of lines, by combining lines wherever it is logically possible. Speed is also increased. See also #41, #64, #90 & #100":
2 ;"This routine allows hex input into RAM.POKE the less/more sig (see #61) bytes of the first address to be changed into the system-var DEFADD (23563/4). POKE 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory.":
2 ;"This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed.":
2 ;"The Toolkit contains
2 ;"THIS IS AN EXAMPLE OF THE NEW CHARACTER SET.POKE 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256 - CURRENTLY 0 & 223. TO RETURN TO THE NORMAL SET,POKE 23607,60.":
2 ;"Routines 94 to 97 change the case (upper/lower)of strings or of the entire listing ( except strings),as specified.Note that an effective way of switching case from within programs is to POKE 23658,0 (LO) or 8(HI).":
2 ;"POKE 60006, Duration (1-127) POKE 60020, Colours (0-7) POKE 60029, Line Space (1-255)
2 ;"Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line.":
2 ;"Make the following POKEs:- INK (63732) PAPER (63738) FLASH (63744) BRIGHT(63750) INVERSE(63756) OVER (63762) AT (63768,63771)CHR$ (63774)"
2 ;"Less Sig More Sig":
2 ;"In order to scroll a table of data > 22 lines long without stopping, use the command POKE 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use POKE 23692,255 within the loop that generates the lines.":
2 ;"In order to print lists or text using all the 24 lines on the screen, include POKE 23659,0 before each PRINT instruction. At the end, POKE 23659,2. Use PAUSE 0 to prevent the Scroll command corrupting the screen. PRINT #0 & PRINT #1 commands are also usable.":
2 ;"In order to make the first line of your program virtually non- deletable (by making it #0)POKE 23755,0: POKE 23756,0. To do this to other lines, first find their address X using routine 88, then POKE X-4,0: POKE X-3,0 The program will work provided you do not GOTO/GOSUB/RESTORE such lines.":
2 ;"Having connected the EAR socket of the cassette-recorder to the Specrum, start PLAYing the tape ( Voice is best. Let Vol=max ) Enter CLEAR 32767:RANDOMISE USR 65290. All memory from 32768 to 65K is used. To replay, call routine 78.":
2 ;"HORIZONTAL SCROLLING"
2 ;"HOCHAUFLOESENDER GRAFIK";
2 ;"Grafiktool"
2 ;"Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes":
2 ;"Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 8000 & 9999. You may need to experiment.":
2 ;"Draw any closed figure on the screen, then PLOT a point lying INSIDE it. POKE 59293 with the Attribute value to be filled,& then call this routine
2 ;"Corrupts the listing without affecting program execution: attempting to EDIT/alter lines could be fatal (thus useful for program protection, as are #61/ #80).":
2 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60899'. Now if an error of the type D:BREAK,H:STOP in INPUT or L:BREAK into program occurs the program will not stop but will jump to the line number whose 2 byte equivalent is POKEd into 60952(lo) & 60953(hi).This line is initially 9495.":
2 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60826'. Now if an error occurs, (other than types 0:OK,8:END or 9:STOP) the program will not stop but will jump to the line number whose 2-byte equivalent is POKEd into 60878(lo) & 60879 (hi)...initially 9495. For the error code, PEEK 23681.":
2 ;"CHARAKTER."
2 ;"By combining this routine with No:s 37-40, joint scrolling of attributes can be done. Define a suitable box, use an Attr Val of 63 & call the Attr Scroll routine(s) once for every 8 calls of this routine."
2 ;"By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing.":
2 ;"1)Make line#1 a REM statement: then POKE 23755,100. You can RUN the program but not LIST it until you POKE 23755,0. 2)POKE 23636,150. To return to normal, POKE 23636,92. 3)Use CONFUSE (#98) ,call #65 & #66 to disable BREAKs, use CHR$ SCRAMBLE (#59) to scramble the listing & #68 to create non- deletable lines with
2 ;"----> ";
2 ;"* * * * * *"
2 ;" ":
2 :these can be
2 :WINDOW_21
2 :Swop sets all squares with the item On,to Off, & all with the item Off,to On."
2 :On/Off toggle the given Colour item"'"
2 :*SCREENSCR0:
2 : then call this routine. You will be in EDIT mode, but with the cursor at the END of the
2 7,13;: LET Z=
2 7,13, you must enter PRINT
2 7,13, enter PRINT
2 65360/1 with the 2 byte eq of the start addr of routine #63(Hex->Dec),which must also be
2 65290. All the memory from 32768 to 65535 is used.To replay,use #78."
2 64834, Box Width"'"
2 64832/5 with
2 64831, Box height"'"
2 64714/5, 2 byte eq of S Also see #60."
2 64711/2, 2 byte eq of I
2 64702, Frequency 2"
2 64693, Frequency 1"'"
2 64682, Duration"'"
2 64670, 28(UP) or 29(DOWN)"
2 64651, Duration"'"
2 64649, Span"'"
2 64648, Frequency"'"
2 63951, Duration"
2 63905, New
2 63903, Old
2 63801, No: to be inserted"
2 63798/9, Start Address (2 byte eq)"'"
2 63796, No: of bytes"'"
2 63713/14 with the address of the new
2 63652/53 with the 2-byte equiv.(see #101)of the address of the
2 63648, no: of
2 63502,No: of
2 63499/500,2 byte equiv. (see#101)of
2 63017/8, Time(ms) "" """
2 63014/5, Pitch( 2 byte eq)
2 63012, Number of notes
2 63011, Pitch Decrement
2 63004/5, Time(ms) "" """
2 63001/2, Pitch( 2 byte eq)
2 60039.Z contains the required
2 60039 Now Z is the required code.":
2 60020, Colours (0-7)
2 60006, Duration (1-127)
2 58690/1,Addr to
2 58687/8,No: bytes to
2 58684/5,Addr to
2 58682,Box Length in
2 58681,Box Width in pixels
2 58680,64(Up)72(Mid)80(Low)
2 58679,Top Left Square
2 57344----(8118)----65461
2 57342. 191=>Yes; 255=>No.To make Iss X progs work on Iss Y,precede all
2 57342,191( ifX=1/2,Y=3)or 255(ifX=3,Y=1/2)"
2 57123,195 IF you wish to execute m/c(from address
2 57114/5, Addr of 1st byte
2 57110/1, Number of bytes
2 57091,X"'" Also see Routine #119"
2 32s.Also see #71"
2 3,""s"" at the start"'" (2)To
2 23693,X sets the global
2 23692,255 within the loop that generates the lines."
2 23670 & 23671 now hold the less significant & more signi- ficant byte values respectively":
2 23659,2. Use
2 23659,0 before each
2 23609,9. The improvement is great with long
2 23582,27.Now
2 23574+2*N,19+2*N"
2 23562,2"'"
2 2 BYTE CONVERTER
2 1984 SUPERSOFT SYSTEMS
2 16384,6912
2 10(No Error Trap)"'"Turn Page: Use ENTER or Jump"'"Menu:";:
2 0)."''" Note that if X=
2 0 (Error Trap)"'"
2 ."'" To speed up cursor response,use
2 . Incidentally,if a ZX-Interface1 is attached,enter 1
2 ,say X, to a new
2 ,as does the command
2 ,"VARIABLES SEARCH/LIST",1
2 ,"UNCONFUSE LISTING",1
2 ,"U-CASE STRINGS",1
2 ,"U-CASE PROGRAM",1
2 ,"TAPE HEADER READER",1
2 ,"SUPER-RENUMBER",1
2 ,"STAR/TORUS DRAW",1
2 ,"SCREEN-PRINT",1
2 ,"SCREEN SEARCH",1
2 ,"SCREEN GRID",1
2 ,"SCIFI CHARACTER SET",1
2 ,"REPLAY SOUND",0
2 ,"REMKILL CONDENSER",1
2 ,"RECORD SOUND",0
2 ,"RANDOM NUMBER GENERATOR",20
2 ,"PROTECT PROGRAM",1
2 ,"PAINT-FILL",1
2 ,"ON ERROR GOTO",1
2 ,"ON BREAK GOTO",1
2 ,"NON-DELETABLE LINES",1
2 ,"MONOCHROME PROGRAM",1
2 ,"LINE ADDRESS",1
2 ,"L-CASE STRINGS",1
2 ,"L-CASE PROGRAM",1
2 ,"HIRES SW-DIAG SCROLL",190
2 ,"HIRES SE-DIAG SCROLL",190
2 ,"HIRES NE-DIAG SCROLL",176
2 ,"HEX->DEC CONVERTER",1
2 ,"HEX LOADER",1
2 ,"FREE-SCROLLER",1
2 ,"FLASH SWITCH",1
2 ,"EXPAND REM",1
2 ,"EXPAND PROGRAM",1
2 ,"DEC->HEX CONVERTER",1
2 ,"CONTRACT PROGRAM",1
2 ,"CONFUSE LISTING",1
2 ,"COMPRESS NUMBERS",1
2 ,"CHR$ SCRAMBLE",1
2 ,"BRIGHT SWITCH",1
2 ,"BORDER EFFECTS",10
2 ,"BLOCK MEMORY INSERT",1
2 ,"BLOCK LINE DELETE",1
2 ,"BLOCK LINE COPY",1
2 ,"AWAIT KEYPRESS",1
2 ,"APPEND STATEMENT",1
2 ,"ANALYSE PROGRAM",1
2 ,"ANALYSE MEMORY",1
2 ,"24-LINE PRINTING",1
2 ,"2 BYTE CONVERTER",1
2 , use a fresh cassette - the routine is saved under the name ";
2 , use GOTO 9001(not RUN)to restart the program."
2 *a\+"U\*Y\
2 *SUPERCODE
2 *ELLIPSEXM/2
2 *B\"E\:D\=2G\
2 *"m";E;"SUPERCODE4":
2 *"m";E;"SUPERCODE4"
2 )to tfr parts 3&4."'"(4)You now have a verified copy of SUPERCODE on microcartridge -it will autostart if you enter
2 ). For ways to relocate routines, press
2 ),No:s/Var (2.3,Z,A$),operations(*),rel(<) etc,or combinations of these.
2 ), or just after,part1,and call it from there.It will
2 (with Z=A+256*ZZ)as in case(1) overleaf.Note thatthe routine will no longer workat its old address."'"(3)The ROM routines & #120 are vdifficult to relocate (why ever relocate a ROM routine?!),#77/78have to be located at the top ofRAM.":
2 (63768,63771)
2 (63762)
2 (63744)
2 (63738)
2 (63732)
2 (*)/ INDEX/ CUSTOMISE"'"Restart:
2 (""SUPERCODE"", or ERCO),commands(
2 '"If an error message appears, useGOTO 0 to restart."'"Enter the Microdrive number, or just press Enter for the default# of 1.":
2 '" (1)At 10% Speed, using PAUSE"'" (2)At Full Speed"
2 ' (repeat)"
2 ' (number)":
2 ' (index)"
2 ' (continue)"
2 #4 will call the m/c"
2 #"a\"c\"e\!
2 # GENERATOR
2 "syntez.2"
2 "programs.This BASIC program letsyou list,test,customise,relocateSAVE & VERIFY routines easily - but the routines will work just as well if the program is absent"
2 "pr40/50R"
2 "To store this routine on a Microdrive cartridge,press
2 "The save MUST then be verified."
2 "The code is from 57344 to 65461:it overwrites the first 12 UDGs.RAMTOP has been cleared to 57340"
2 "The SAVE is over."'"Proceeding with VERIFY.":
2 "ROM","0","
2 "Please replay the tape.":
2 "PAPER COLOUR ? 0 TO 7 ";k$
2 "OK,the Microdrive # is
2 "GRAPH S":
2 "F R ` F R `"'':
2 ";A+P;", Box Width"'"
2 ";A+M;", Box Height"
2 ";A+G;" with"'"
2 ";A+E;", Overall Colour"
2 ";A+E;", New Attribute Val"'"
2 "60029",Z:
2 "60029",I:
2 "60006",I:
2 "56"*(N<P)'" SCROLL-OFF:
2 "54"+(N<P):
2 "4)Imbed hidden colour CHR$ to set INK=PAPER within non-delet- able lines:the listing vanishes5)Autostart by using SAVE Name$ LINE X. Let line X be 'LET ERR= 256*PEEK 23614 +PEEK 23613:POKE ERR,0:POKE ERR+1,0'. Any BREAK/ error will now cause a crash.":
2 "36"+A;", 26"'" SCROLL-OFF:
2 "36"+A;", 0"
2 "30mcroutin"
2 "23659",F*(N=
2 "23606",D:
2 "23295"+Z,
2 "21",P;"*":
2 "19",E;"8 calls"
2 "18",D;" WRAP-AROUND:
2 "16";"Right"
2 "15",E;"To scroll attributes as well, refer to routines 37-40(define suitable box & Attr value).Call the attribute scroll once per 1 call of this routine.":
2 "'"Number of Routines:
2 """""'" Incidentally,to
2 " WRAP-AROUND:
2 " To store this routine on tape, press
2 " To renumber without
2 " To renumber lines starting with S using interval I,
2 " To follow '2 byte eq',see #101."
2 " This routine zeroes all numeric variables/arrays,sets all
2 " This routine swops all
2 " This routine shortens+speeds up programs by deleting all
2 " This routine scrolls up the lower X (0<X<25)
2 " This routine replaces each occ- urrence of a specified
2 " This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ;
2 " This routine operates on
2 " This routine merges a
2 " This routine lists each
2 " This routine lists all"'" (1) Numeric variables"'" (2)
2 " This routine inserts a given number into a block of memory.
2 " This routine enables you to determine the
2 " This routine does
2 " This routine allows hex
2 " This does
2 " The routine changes all squares with a given
2 " Move the cursor to the required
2 " In order to scroll a table of data > 22 lines long without stopping, use the command
2 " INVERSE SCR:
2 " Having connected the EAR socket of the cassette-recorder to the Spectrum,start playing the tape (Voice is best;Vol=Max),&
2 " Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 1000 & 9999. You should experiment."
2 " Draw any closed figure on the screen, then PLOT a point lying INSIDE it. POKE 59293 with the Attribute value to be filled,& then call this routine."
2 " Corrupts the listing without affecting program execution: attempting to EDIT/alter lines could be fatal (thus useful for program protection, as are #68/ #80)."
2 " By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing."
2 " The routines run hundreds of times faster than BASIC,& can becustomised easily. Do enjoy yoursuperb Z80 MachineCode Library!"
2 " Keep a written record of the name, address & length of this routine, as well as of all the relevant POKEs. For details on relocation, refer to the manual."
2 values are not changed.Refer to #25-27 for
2 to a ZX-Microdrive, press
2 to """" & all dimensioned
2 might not close every stream: use this instead."''" Incidentally 1)To disable
2 messages"
2 machinecode routines which you can call(using RANDOMIZE/PRINT USR) bothdirectly & from within your own"
2 channel N (3<N<16) use
2 SAVE""Name""CODE ";A;",";B
2 POKE 23607, 223
2 Loading Time:
2 DATA FILE
2 CURRENT_9
2 CURRENT_7
2 CURRENT_6
2 59580 ,I: POKE 59582/3,2 byte eq:of S Each
2 23733. Now 127=>16K, 255=>48K.";
2 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use
2 -rewind & replay the cassette from the start.When you come to this page,press
2 (Tape)."'"Note address,length,customising POKEs(if any)etc for future ref:":
2 (MDrve)."
2 stored in RAM (
2 no:,the next valid
2 into RAM.POKE 23563/4 with the 2 byte eq: of the first address to be changed
2 key pressed,play the cassette. This tfrs parts 1&2."'"(3)After the reset enter
2 arrays to
2 V.RUMSEY
2
1 ~~``||````
1 ~~``xx``~~
1 ~astx9fajla9
1 ~DC.11 C
1 ~::::::@@@
1 ~2J\#~2I\!%
1 |~gcccccg~|
1 |~ff~|````
1 |~ff|~ff~|
1 |~ff|~ffff
1 |~ffffff~|
1 |syntez.2B
1 |syntez.1C
1 |bbb|bbbbb|
1 |SINTEZ-2B
1 |FFFF|bbbbb
1 |FFFFFFFFF|
1 |8888888?8888888
1 {lesson C
1 {hd C@
1 {FANKORP B
1 zapisatx9sektor
1 zapisatx9dorovku
1 zBIGBUKVAB)
1 yrlf`[VQLHD@=9630-+(&$"
1 y(t)=cy-((cy-y(t))*d)
1 y(t)=cy+m(t)*jj+n(t)*kk
1 y(n)=y(n)-g
1 y(n)=y(n)+g
1 y(n)=t(n):
1 y(n)=r(n):
1 y(n)=p(n):
1 y(n)=l(n):
1 y(n)=j(n):
1 y(n)=h(n):
1 y(n)=f(n):
1 y(n)=d(n):
1 y(n)=cy-((cy-y(n))*d)
1 y(n)=cy+m(n)*jj+n(n)*kk
1 y(n)=b(n):
1 xxxxxxxx1w
1 xwvmZYXWVTNK7%
1 x(t)=cx-((cx-x(t))*d)
1 x(t)=cx+m(t)*kk+n(t)*(-jj)
1 x(n)=x(n)-g
1 x(n)=x(n)+g
1 x(n)=s(n):
1 x(n)=q(n):
1 x(n)=o(n):
1 x(n)=k(n):
1 x(n)=i(n):
1 x(n)=g(n):
1 x(n)=e(n):
1 x(n)=cx-((cx-x(n))*d)
1 x(n)=cx+m(n)*kk+n(n)*(-jj)
1 x(n)=c(n):
1 x(n)=a(n):
1 x too small
1 wj;e4;t1;=c**s;s;
1 wj;c04;f;r;
1 wj02062604
1 with this program 1
1 will be put in L)is pressed. memory from 32768 to 65535 is used To replay,use #78.";
1 wi;c62;e2;c26;f ;
1 wi12141222;
1 wh;c61;e2;c16;f ;
1 wh09140922;
1 wg;c62;e2;c26;f ;
1 wg;c03;2e8;c07;t0;=When you've had enough of this program press 'x' delete lines below 9990 and write your own;p;s;c04;tB;=e*n*j*o*y;
1 wg06140622;
1 wf;c61;e2;c16;f ;
1 wf03140322;
1 we0014002B1
1 we00140022;
1 wd;e9;c30;f ;
1 wd;c07;t1;=be exceptionally vigilant;p;wA;c02;<look out ;p;
1 wd;c06;e9;c06;f ;t4;=the only limitations are imposed by the scope of your imagination;
1 wd;c06;e9;c06;f ;t2;<campbell;<systems;<rule;<ok?;
1 wd;c05;f;c07;wa;f ;r;
1 wd00101418
1 wcls0,0,16,11/wcls16,11,16,11
1 wc;e2;c26;f
1 wc;c61;e2;c26;f ;T3;=windows can be any size any colour any frame anywhere;
1 wc;c61;e2;c26;f ;T3;=there are eleven different type fonts to choose from;
1 wc;c03;t7;=Don't relax your attention even for a second ...;p;
1 wc10241032;
1 wb;c72;e4;c14;f ;TA;=you will be amazed at how easy it is to program dlan;
1 wb;c72;e4;c14;f ;TA;=the 16k program is found on the other side of this tape;
1 wb;c72;e4;c14;f ;
1 wb01240020;
1 wa;c12;e9;f
1 wA;c06;T1;10#;<hello hello good evening and welcome to dlan;p;=greetings;#;
1 wA00010016;
1 w00100032;e7;t1;=The following demonstration program was contributed by a customer (Stephen Heneghan of swansea).
1 vBUKVA D.B
1 v,h;"!*!*!":
1 use #148."
1 uDEMO 1 B
1 ttttttt@@@
1 ttrace 2 CW
1 to the bottom area of
1 to be sent to Stream 3 attached to Channel P (ZX Printer)."
1 to be sent to Stream 2 attached to Channel S (
1 to a new address.To correct,run this routine before loading.It resets System vars to pre-paging values,& ensures programs from cassette
1 to 23755 and not 23813."
1 this rout- ine within(using
1 temps/line(a,0)-(a,175)
1 temps/line(0,0)-(a,175)
1 tadvert.2C(
1 tadvert.1C@
1 tADVERT B
1 t9;<keep your;<eyes glued;<to the screen;p;
1 s~itatx9dorovku
1 systems;;TB;=
1 stro~n=9bukwy
1 strace 1 C@
1 statements won't work if
1 spst=49723
1 sistemnoj9dorovke
1 sektorow>>
1 scrolls when re
1 scrolls when re
1 s;p;=thank you stephen,;=over to you....;3p
1 s the length of the BASIC program. Memory used by variables is ignored. Also see #103,#111.";
1 s the length of the BASIC program. Memory used by variables is ignored. Also see #103,#111."'" Incidentally,to distinguish 16K from 48K Spectrums,
1 s the length of the BASIC program. Memory used by variables is ignored. Also see #103,#111."'" Incidentally to distinguish 16K from 48K Spectrums,
1 s 22/23. (k=0 for 22,k=1 for 23)"
1 s before EVERY call
1 rjb`@@@@@@@@@@@@@@@@@@
1 rfb`@@@@@@@@@@@@@@@@@@
1 rdb`@@@@@@@@@@@@@@@@@@
1 pxxllffcca
1 prd1.1 C`
1 ppxxllffcca
1 podtwerdite9
1 perezapisatx
1 pEEEEEEEEE:Y
1 pEEEEEEEEE9
1 p;tA;c04;=
1 p;c07;f ;=... at least we hope you are ...;4s;
1 p88<<888?888888p
1 p('2IECSJFD
1 p$=message to print
1 p$=au=no=co=li=ll=fl=
1 p the tape;
1 only. Incidentally,to
1 on variables, instead use
1 on lines 22 & 23."
1 nzz,ncc,popep,m,
1 nowye_dorovka
1 no=no of chrs per line
1 no: whose 2-byte equivalent was
1 nkt direkt eingegebe
1 najti9fajl
1 n;"*";x;"=";n*x
1 n(t)=-(cy-y(t)):
1 n(n)=-(cy-y(n))
1 n to prevent the scroll? prompt from corrupting the
1 n to prevent the scroll? prompt corrupting the
1 move64,131/circle40,15/move64,131/paint
1 move c,a/box b,d
1 mode engaged"''"Release S key":
1 m(t)=-(cx-x(t)):
1 m(n)=-(cx-x(n)):
1 m();" bytes left"'
1 li=no of line to print on ie 10,11 etc
1 ldinegnopor orgoutpoppusresretrl rlarlcrldrr rrarrcrrdrstsbcscfsetslasrasrlsubxorhalcpdcpidjnim indiniotdoti
1 l and h values
1 jTRACE SPB
1 is stored at X, enter
1 is away of stopping most autostart programs. However programs>7K inlength can be made
1 into 23681."
1 instruction. At the end,
1 instruction. After,
1 instead of
1 ilogo C0ug
1 iiiiiiiiiiiiiiyyyyyyyyyyyyyyxxxxxxxxxxxxxxhhhhhhhhhhhhhh<
1 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiilllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllloooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
1 idc Cxi
1 iSCR.DEMOB
1 hmRUS.fntC
1 hmKOI.fntC
1 hhhhhhhhhhho`
1 h2-h1,v2-v1
1 ghkhghghgh
1 from X to X+6911,
1 ffvv~~nnff
1 ffff~~ffff
1 ffffx~ffff
1 ffffffff~<
1 fbb`@@@@@@@@@@@@@@@@@@
1 fQ!fQ$lQ(fQ*jQ
1 ed/reset Spectrum. (6)Press
1 ed,use routine119 before each
1 ed,use routine119 before each
1 ed into a Spectrum with shadow ROM paged in,as the prog will
1 dlan;s;p;c07;f;3^x;
1 ddf`@@@@@@@@@@@@@@@@@@
1 d$="H E L L O":
1 d into 57125/26 ) :if not you will return to the next statement.
1 d in 60952(lo) & 60953(hi):initially 9495."
1 d in 60878(lo) & 60879(hi):initially 9495.For the error
1 cy=cy+y(n)
1 cy=(w+z)/2
1 cx=cx+x(n):
1 cx=(u+v)/2
1 cuvndTXYR4j(+,,'&'
1 created with routine #147. If such a
1 co= column to print at
1 co- ordinates of the top-left hand corner of the box."
1 co- ordinates of the top-left hand corner of the box."
1 cmLAT.fntC
1 ccss{koggcc
1 c07;wd;#;10s;wc;14sd;wb;c07;24s;
1 c07;wa;c02;e7;TA;=dlan;t0;=
1 c07;TB;=campbell;=
1 c00;f;c07;t6;=This is an excellent program and you are sure to enjoy it very much indeed ...;
1 c00;;wd;#;10s;wc;14sd;wa;24s;
1 but will jump to the
1 boot C2
1 boot B\
1 boot BU(U()
1 bdhppxhldfb
1 bd`@@@@@@@@@@@@@@@@@@
1 bcdehlspixiy
1 bbbb~bbbbbb
1 bbbbbbbbbb<
1 bMB v4.21CY
1 autom. LOAD
1 au=colour to print
1 are utilised.)":
1 alter the data in lines 50 to 90 and have fun
1 adcaddandbitcalccfcp cpldaadecdefex exxinSYS:REM:LOAD""
1 acflxpxlfca
1 ab-RUS.smC[
1 ab-FNT.smC[
1 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa!
1 aaaaaaaaaaaaaaaaaaaaaaaaaaa
1 aMEGADEMOBx
1 a$=" BETA-BASIC":
1 a$=" GRAFIK "
1 a compressed
1 ``~~``~8$BBBBB<
1 ```cflxxlfc
1 ````````~~
1 ``````````>
1 _zamena9diska
1 _wwod9komand
1 _wozwrat9w9
1 _stranica9wpered
1 _stranica9nazad
1 _perekl`~enie9zagl=
1 _perekl`~enie9revimow9
1 _informaciq
1 ____________________
1 __________";
1 _#V#"]\*S\
1 ^islo9NE9bolx{e
1 ]RUS1.fntCo
1 Zapustitx9fajl
1 Zapisatx9izmeneniq
1 Zapisatx9dorovku
1 Zapisatx99sektor
1 Zabezbieczenie kodu-w pamieci miejsce na 50 znakow!
1 ZXUC S.25/26
1 ZX Spectrum+ User Guide
1 ZX Spectrum+
1 ZX SPECTRUM MACHINE CODE TOOLKIT
1 ZBeta3.1 Cp
1 Z:STIPPLE_Z
1 Z/50 gives the time taken to hit the last key,in seconds."
1 Z$:to work
1 Z if from Microdrive).If anaddress >23812 is to be
1 YS MEGABASIC
1 Y=YY+(XX-1
1 X=XX+(XX-1
1 X/Q/S/R/I/C/N/D
1 X.For the error
1 X+25, Drive number
1 X+25, Drive Number
1 X+16, Number of bytes to be sent. If
1 X+14 to X+23,
1 X+13, Relative Record No:"
1 X+11/+12, next data byte
1 X too large
1 X and then call this routine."
1 X & then call this routine(
1 Wyjti9iz9procedury
1 Wy9uwereny9
1 Wstawxte99prinima`}ij9dis
1 Wstawxte99kopiruemyj99dis
1 Written by F.A.VACHHA BSc
1 Window too small
1 Window too large
1 WINDOW INIT
1 W002400323#
1 Version 4.21
1 V 3.02R 512K
1 User Guide Catalogue
1 UUUUUUUU53f
1 UDem1 C
1 UBETADEMOB
1 This version (4.21) by
1 This program is createdfor Sinclair computer education,so it does not pretends to be optimized & protected, etc. You can easy list this prog-ram and study its structure. Lit.: Neil Ardley ZX Spectrum+ User Guide.
1 The save is OK. Press any key.":
1 The Recording was fine!
1 TOP/MID RIGHT-SCR",S
1 TOP/MID LEFT-SCR",S
1 TOP RIGHT-SCROLL",S
1 TOP LEFT-SCROLL",S
1 TITOVA EKATERINA
1 THE MICRODRIVE VERSION
1 THE DISC VERSION
1 TEPA, TO";
1 TEP B COCTO
1 TE CKOPOCT
1 TE BCE CTPOK
1 TA;c40;=important message follows soon;1p;c40;TB;=stay tuned to this station;3s;1p;
1 T OH BHE KOHK
1 S~itatx99dorovku
1 Syntax error
1 Symmetrical Patterns
1 Swobodno>>>>>
1 Stertyh>>>>>>>>
1 Steretx9mark
1 Stars And Stripes
1 Spiders And Pyramids
1 Solid Triangle II
1 Solid Triangle I
1 Sketchpad And Example
1 Shimmering Sunrise
1 Scuttling Spider
1 SYS:REM:SAVE""
1 SUPERCATALOGUE ******
1 SUPER-CATALOGUE
1 START TAPE
1 SPIVAKOVA YULI
1 SIMULATOR",I
1 SIMULATOR",G
1 SF Software Trade Mark
1 SEND RS232 BYTE
1 SEND #NET PACKET
1 SELECT DRIVE
1 SCR0=16384
1 SC3.5-4.B5a
1 SC3.5-3 C9
1 SBR 7100,7200
1 SBR 6300,6400
1 SBR 3300,3400
1 SAVE'";C$(
1 SAVE to RANDOMISE...":
1 SAVE '";C$(
1 S=_Peterburg
1 S.CODE 2BU
1 S.CODE 1Bh
1 S U P E R C O D E II
1 S U P E R C O D E 3.5
1 Random Squares
1 ROUTINE NO:/ ENTER TO SCROLL
1 ROUTINE NO: ?
1 RIPPLE RIGHT-SCROLLN
1 RIGHT-SCROLL",S
1 RIGHT-SCROLL",33
1 REPLAY SOUNDN
1 REPLACE",D
1 RENUMBER",D
1 RELOCATION OF SUPERCODE ROUTINES
1 RELOCATING SUPERCODE3.5 ROUTINES
1 RELOCATING SUPERCODE II ROUTINES
1 REFLECT Y-AXIS",E
1 REFLECT X-AXIS",E
1 RECEIVE RS232 BYTE
1 REACTION TIME
1 RANDOMIZE USR63950
1 RANDOMIZE USR 3190
1 RAM SIZE: 48K"''"PROGRAM LOADED FROM TAPE ":
1 QDEMO-3DGB
1 Q,E;"To store a compressed
1 Q,E;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit, &
1 Q,E;"Call this routine at the start of your program.
1 Q,E;"Call this routine at the start of your program, say by having as
1 Q,D;" This (also with 1248/1276/1301 /1488) displays a
1 Q 2
1 Pyramids II
1 Pyramids I
1 Programming Sounds
1 Press a key to turn the page
1 Press S to SAVE, Q to QUIT
1 Press Q to QUIT
1 Perwaq9swobodnaq9dorovka>>
1 Pereme}enie9kursora_klawi{ami9kursora
1 Pereimenowat
1 Pdlan48 C
1 PRODOS DEMONSTRATION
1 PROC stack underflow
1 PROC stack overflow
1 PRINTING",E
1 PRINTER OUTPUT
1 PRINT 40/50
1 PRINT # 9;AT Y,X;
1 PRESS THE APPROPRIATE KEY
1 PRESS ANY KEY. THEN ENTER RUN
1 PRESS ANY KEY TO CONTINUE
1 PP0 ! 1QphH
1 PHd$b2Q8L2
1 PART2 C@
1 PART TWO - 50 ROUTINES
1 PART TWO - ROUTINES 77-152
1 PART 2 from tape.When you come to this page, press
1 PAMME HET CTPOK C HOMEPAM
1 PAMMA 'TRACESPEED
1 P;" ";
1 P$,no,li,co,au:
1 Original version (3.0) by
1 Ob?em9fajla9iz
1 OVERPRINT",E
1 OK-Searching
1 ODLAN DEMB
1 O9[9I9B9K9
1 Number Chart
1 Npr40/50RC
1 Nowaq9mask
1 No such lin
1 No POP dat
1 No END PRO
1 Nesankcionirowannaq99kopi
1 Ne9TOT9disk99
1 Na~alo_dor=
1 Na9diske9NET9takogo9fajla
1 NPR40/50RB
1 NNNNNNNNNNNNNNNNNNNF
1 N$,C$,C$,DUR:
1 Multiplication Table
1 Mnogo9sektoro
1 Mnogo9fajlo
1 Mnapisy C|
1 Missing parameters
1 Missing LOO
1 Missing DEF PRO
1 Mark=9fajlow
1 Manic Mosaic
1 MODE_2:FONT_2:SOFF
1 MNAPISY+ B
1 MID/LOW RIGHT-SCR",S
1 MID/LOW LEFT-SCR",S
1 MID RIGHT-SCROLL",S
1 MID LEFT-SCROLL",S
1 MIBM symgC
1 MEMORY AVAILABLEN
1 MDRVE FILE
1 Linia sterujaca DLAN
1 Line not found
1 LSYMB IBMBI
1 LOW RIGHT-SCROLL",S
1 LOW LEFT-SCROLL",S
1 LORES TOP 1/3 SCR-RGHT
1 LOOP without D
1 LIKE AN EXAMPLE - Y/N ?
1 LFawlty C
1 LET O$='50'
1 LET O$='40'
1 LET ERROR=USR 53010:REM:
1 LEFT-SCROLL",S
1 LEFT-SCROLL",33
1 L);"'CODE";A;",";B
1 L);"'CODE ";A;",";B
1 Kopirowatx9s9
1 Kontrolx9diskow9
1 Konec9_dor=
1 Keyboard Converter
1 KPAHA HOMEP
1 KORSCHENBROICH-GLEHN
1 KILL CONDENSER",D
1 JwwwwwwVVV
1 JwOwwwwVVp
1 JrwwwwVVQQ
1 JWOOwwwwwV
1 J;"SINTEZ.2 - BA
1 J,H;"Routine Length is ";B;" bytes":
1 Input Routine Number, or 'I' if you want the index again. Enter 'D' for a demonstration. The first 50 Routines are avail-able on SUPERCODE PART 1. They include a comprehensive series of scrolls,screen window effectsattributes manipulation, sound effects,screen storage,ripple & shutter effects, etc etc etc...
1 Illegal window
1 If this is OK, press enter.If itis not, enter the new name (notethat only the first 8
1 INTRODUCTION
1 INSTRUCTIONS ON THE TRANSFER OFSUPERCODE 3.5 TO A ZX-MICRODRIVE
1 INSTRUCTIONS ON THE TRANSFER OF SUPERCODE TO THE ZX-MICRODRIVE
1 INSTRUCTIONS ON THE TRANSFER OF SUPERCODE II TO ZX-MICRODRIVE
1 INDEX PAGE ";(C-E)/
1 INDEX - PAGE ";(Z-1
1 IMPORTANT:
1 IIIHD$$$""
1 IIHHeD$$$""
1 IHHDD$$$
1 IF1 INITIALISE
1 I N D E X (CONT)
1 HISTOGRAMM
1 HILFSSCREEN AT 5300
1 HH1600 !F@@@
1 HANS-JOACHIM BERNDT
1 Graphics Character
1 GO TO 9995
1 GO SUB 9991
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGGGGGGGDDCCDFFFFFGFFFFFFFG
1 GGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGG888888888888888GGGGGGGGGGGGGGGGG888888888888888GGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGG
1 GGGGGGGGGGDDDDDDDDDD
1 GGGGGGGGGG
1 GGGGGGGGGDCCCCGG
1 GGGGGGGGG;
1 GGGGGGGGG"}
1 GGGGGGGDGGGGGG
1 GGGGGGGCCCCCC
1 GGGGGDDDDDD
1 GGGGCCCCCCCCCCCCCCCCCCCGGGGG
1 GGGGBCCCCCCCCCCCCCCCCCCGGGGG
1 GET #NET PACKET
1 GEGGGGGGGGGGG
1 GEEEGGGGGGGGGG
1 GEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEGGGEEEEEEEEEEEGEEEEEEEEEEEEEGGEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEGEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEGEEEEEEEEEEEEGEEEEEGEEEEEEEEEEEGGEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEGEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGG
1 GCCCCCCCCCCCCCCCCCCG
1 GC(tC(lC(cC([C(SC(JC(GE@e
1 Flashing Circles
1 Falling Spider
1 Fajlow>>>>>>>>>
1 Fajlow>>>>>
1 Fajl99su}estwuet
1 FX not implemented
1 FNNNNNNNFFFFFGG
1 FFFNNNNNNNNNFF
1 FFFNNNNNNN
1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF&
1 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 FFFFFFFFFFFFFFFFFFF000000000000
1 FFFFFFFFFFFFFFF
1 FEEBB""!!!
1 Entwurf Karl Schaefer Staufen
1 EXCHANGE",E
1 ERROR=STAT=LINO=::\<
1 EPATOPA B CTPOKE."
1 EFFECTS",I
1 EEEEEEEEEGGG
1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 EEEEEEEEEEEEEEEEEEEEEE#
1 EEEEEEEEEEEEEEEE(
1 EEEEEEEEEEE
1 E$="THE END "
1 Double Bar Chart
1 Dlina9999fajla>>
1 Disk-Doctor
1 DSUPERPRIB
1 DISK VERSION BY 'PENCRAFT' 1991
1 DISC:Change
1 DISABLE BREAK
1 DFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGDFDFGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 DESELECT DRIVE
1 DEMO-PROGRAMM FUER "30-ROUTINEN" VON GLEN KRISTIANSEN
1 DDGGGGGGGGGGGGGGGGG
1 DDDDGGGGGGGGGGGGGGGGGGGGGGGGGG
1 DDDDDGGGGGGGGGGGGGGGGGGGGGG
1 DDDDDDDDDDDDDDD
1 DDDDDDDDD4
1 DDDDDDDDD!
1 DDDBB""!!!
1 Computer Characters
1 Compresses this into 2475 bytes!>
1 Colour Tester
1 Colour Combinations
1 Chessboard
1 Channel Addr+13,Sector no:"
1 CREATE CHANNEL
1 CONVER Comander
1 CCCCCCCCCCCCCCCCCCG
1 CB\:G\<2D\!
1 C/D/E/I/N/P/Q/R/S/X
1 B|RHBR~@BR>
1 Bouncing Ball
1 BSUPER12 B
1 BProgram not compile
1 BETA file not found
1 BETA file already exists
1 BC"&*)11!!A
1 BBJp"rB|~JB
1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBB
1 BBBBBBBBBBBBBBBBBBBB89999999999
1 B888?8888@@
1 B,oB7oA2oA8j?
1 Aus:HAPPY COMPUTER 3/85
1 Asuperc11C@
1 Asuperc$ C@
1 ArJFB">%%>
1 Adres9zagruzki>>
1 Adapted from Original Supercode___by F.A.Vachha & V.B.Rumsey___
1 ANY OTHER KEY TO START
1 ANY OTHER KEY TO RESTART
1 ANY OTHER KEY TO GO ON
1 ANY OTHER KEY
1 ANOTHER COPY ? (Y OR N)
1 AF[\_OIOFFDDHH
1 AFB;wi;c26;f
1 ADDRESS",D
1 ACDEFILMNOPRSTUVX
1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
1 A/C/D/E/I/J/L/M/N/P/Q/R/S/T":
1 A$:*SCROLL1
1 @```|FFFFFF
1 @```|FFFFF<
1 @```bdxXLFB
1 @=Kowalewskij
1 >```|``````
1 >```|`````>
1 ><<\\\&'##!q
1 >02jGO TO
1 =>Hex(0-FFFF) Enter the no: to be converted. Routine autorepeats-'Q' quits,&
1 =2G\"E\*K\~
1 <~fnnvvf~<
1 <~fff~~fff
1 <~ff<~ff~<
1 <~f`|~ff~<
1 <~f`nnff~<
1 <~f````f~<
1 <ff``nnbbb<
1 <bffjjrrbb<
1 <bbbbbbbbj<
1 <bbbbbbbbb<
1 <bbb<p<FF<
1 <S.CODE-1Bc
1 <FFFF|`````
1 <FFFFF~FFFF
1 <FFFFF|```
1 <FF@@@@@FF<
1 <<x@@@DDDFFx
1 <<BB~|<><B<
1 ;s;t2;=the electronic notice board;
1 ;c21;15e9;
1 ;C$;" CODE ";A;",";B:
1 ;ASB;e2;we;c46;f ;c62;e2;
1 ;ASB;e2;AFB;wh;c16;f
1 ;ASB;e2;AFB;wg;c26;f
1 ;ASB;e2;AFB;wf;c16;f
1 ;:*fillx+5
1 ;:*PLOT127
1 ;:*LINE127
1 ;"{to movet ";
1 ;"wnimani`":
1 ;"wersii":
1 ;"wariant programmy":
1 ;"velaem uspeha":
1 ;"top left hand corner of the box"
1 ;"sostawlennoj polxskimi programmistami i predstawlq`}ej soboj draiwer |krana, pozwolq`}ij rabotatx w dwuh revimah (40 i 50 simwolow w stroke) sohranqq pri|tom wozmovnostx standartnoj pe~ati"
1 ;"sisteme":
1 ;"rusificirowannyj";
1 ;"revimy";:
1 ;"revim pe~ati
1 ;"programmu PRINT 40/50 RL";
1 ;"programma"
1 ;"predstawlqet";
1 ;"populqrnoj programmy":
1 ;"osnownyh otli~itelxnyh osobennostqh"
1 ;"operacionnoj":
1 ;"navmite probel"
1 ;"magnitoza}i}ennoj kassetnice."
1 ;"koordinaty at zada`tsq dlq komand PRINT i PRINT #9; nezawisimo drug ot druga "
1 ;"gruppa";:
1 ;"gruppa";
1 ;"gruppa PENCRAFT predstawlqet russku` wersi` ":
1 ;"dlq smeny formata naberite :":
1 ;"diskowoj":
1 ;"demonstriruet osnownye wozmovnosti":
1 ;"b-DEMO":
1 ;"auto-";:
1 ;"__________
1 ;"Zapisx programm proizwoditsq na stereomagnitofone pri zawodskoj (standartnoj) ustanowke magnit- nyh golowok."
1 ;"Za dlugi tekst":
1 ;"ZAPISANNYH NA NEJ PROGRAMM !"
1 ;"You can scroll attributes too by using this routine & then No: 37 - 40, after defining an appropriate box & setting the Attr Value to 63."
1 ;"Wwod programm proizwodite s odnogo iz kanalow."
1 ;"Wersiq 4.21 : Dmitrij Petras '92";
1 ;"Wa{emu":
1 ;"WRAP-AROUND POKE ";A+16
1 ;"WRAP-AROUND POKE ";
1 ;"WRAP AROUND POKE ";A+13
1 ;"WNIMANIE"
1 ;"WNIMANIE!":
1 ;"WNIMANIE!"
1 ;"WELCOME TO b-BASIC 3.11"
1 ;"WCLS x,y,a,b"
1 ;"Velaem uda~i!":
1 ;"VIER RICHTUNGEN,IN";
1 ;"Uwavaemyj POKUPATELX !!!"
1 ;"UP TO 255 SOFTWARE SPRITES"
1 ;"This routine simulates a power- off: ie, it not only does NEW but also CLEARs RAMTOP to its original value, clears the entire memory & resets UDGs & System VARs.":
1 ;"The free space F from the last Variable to RAMTOP is printed. By the way, you can use POKE 23637,203:POKE 23638,92:SAVE 'Name'CODE 23552,RAMTOP-23550-F to save your program disguised as code - it will autostart at the first line.";
1 ;"THE TORTOISE AND THE HARE"
1 ;"THE RAT RACE"
1 ;"THE LASER BASIC";
1 ;"Sankt-Peterburg 1992 god."
1 ;"SUPERSOFT
1 ;"SPRITE ANIMATION"
1 ;"SPECTRUM - COBMECT
1 ;"SMOOTH";
1 ;"SINTEZ.2";
1 ;"SINTEZ.2 -";
1 ;"SINTEZ.1";
1 ;"SINTEZ";
1 ;"SCROLLING"
1 ;"SCROLL-OFF POKE ";A+16
1 ;"SCROLL-OFF POKE ";
1 ;"SCROLL-OFF POKE ";A+13
1 ;"SCALING FACTOR ";d
1 ;"SCALED TOO BIG FOR SCREEN":
1 ;"SC3.5-4.1"
1 ;"Routine in ROM":
1 ;"ROTATION"
1 ;"Prqmoe wozdejstwie magnitnyh polej - nedopustimo !"
1 ;"Predlagaemaq":
1 ;"Please wait !";
1 ;"Pered zagruzkoj programm pro- trite golowku Wa{ego magnitofona"
1 ;"Pered ispolxzowniem rekamenduet-sq razmagnititx lentoprotqvnyj mehanizm Wa{ego magnitofona."
1 ;"PRODLEWAET SROK SLUVBY"
1 ;"PRIQTNOGO WAM OTDYHA !!!"
1 ;"PRINT AT co-ordinates of the";
1 ;"POMNITE !!!"
1 ;"POKE 64884, Overall Paper Col"
1 ;"POKE 64859, Overall Ink Colour"
1 ;"POKE 64829, Character Code POKE 64831, Box height POKE 64834, Box Width POKE 64832 & POKE 64835 with the PRINT AT co-ordinates for the top-left hand corner of the box."
1 ;"POKE 64682, Duration POKE 64693, Frequency 1 POKE 64702, Frequency 2"
1 ;"POKE 64648, Frequency POKE 64649, Span POKE 64651, Duration POKE 64670, 28(UP) or 29(DOWN)"
1 ;"POKE 63199,hodnota"
1 ;"POKE 63198,port";
1 ;"POKE 63011, Pitch Decrement POKE 63012, Number of notes POKE 63014 & 63015, Pitch (less/more sig) POKE 63017 & 63018, Duration in ms (less/more sig)"
1 ;"POKE 63001 & 63002 with the Pitch value (less/more sig) POKE 63004 & 63005 with the Duration in ms (less/more sig)"
1 ;"POKE ";A+7
1 ;"POKE ";A+6
1 ;"POKE ";A+4
1 ;"POKE ";A+1
1 ;"PENCRAFT";
1 ;"PENCRAFT":
1 ;"PENCRAFT SOFTWARE PRESENTS"
1 ;"Obra}aqsx k diskowoj sisteme"'"ne zabywajte o neobhodimosti"'"perekl`~atx revimy prerywanij:":
1 ;"No GOSUBs or GOTOs are changed- use #60 if you need that done. If L is the first Line to be renumbered, & I the Interval POKE 64711, I - 256*INT(I/256) POKE 64712, INT(I/256) POKE 64714, L - 256*INT(L/256) POKE 64715, INT(L/256)":
1 ;"NOWYE GORIZONTY";
1 ;"My predlagaem Wam uslugi :"
1 ;"MOVE x,y"
1 ;"MEGABEJSIK"
1 ;"MEGABASIC v4.21";:FONT_1
1 ;"Loading bytes":
1 ;"LINE x,y"
1 ;"LINE (x1,y1)-(x2,y2)"
1 ;"Kuplennu` Wami kassetu neobhodi mo hranitx wdali ot teleradio- apparatury w specialxnoi "
1 ;"INVERSE SCRL POKE ";A+13
1 ;"INTRODUCTION":
1 ;"Grafikdemonstration? j/n "
1 ;"GEFAELLT'S?":
1 ;"FONGEN1":
1 ;"F.VACHHA V.RUMSEY":
1 ;"EXTENDED INTERPRETER FROM"
1 ;"ES GIBT SCROLLS IN ALLE";
1 ;"ELISEEV V.A.1990":
1 ;"E N D E"
1 ;"DIMIKSOFT"
1 ;"DIE EXPLOSION..."
1 ;"DAS MASCHINENGEWEHR..."
1 ;"COMMANDO4"
1 ;"CIRCLE x,y"
1 ;"CHOPPER";
1 ;"CHASE H.Q";
1 ;"CHANGING PAPER COLOUR "
1 ;"CAULDRON";
1 ;"CALCULATING NEW CO-ORDS - WAIT "
1 ;"Bytes are loading":
1 ;"Beta BASIC 3.11"
1 ;"Beschreibung noch einmal? j/n"
1 ;"Befehle:"
1 ;"Bedingungen"
1 ;"BUBBLE";
1 ;"BRUCE LEE";
1 ;"BOX x,y"
1 ;"BOMB JACK";
1 ;"BETA-BASIC"'"Version 3.11":
1 ;"BETA-BASIC"
1 ;"BEREVNOE OTNO[ENIE K KASSETE"
1 ;"BENNYHIL";
1 ;"BATMAN2/2";
1 ;"BASIC DEMO";
1 ;"BARBARIAN";
1 ;"BANDSTOP !":
1 ;"BAGDAD";
1 ;"All right, like talking ours friens english people."
1 ;"After this program working you can printing by 64 simbols per line by use statement <PRINT #4;""....."">.":
1 ;"AUTOMANIA";
1 ;"ATTRIBUTE SCROLLS":
1 ;"ARCANOID";
1 ;"ANIMATION":
1 ;"ANIMATION"
1 ;"ALCHEMIST";
1 ;"ACTION";
1 ;"A Laser Zap routine can also be called,using
1 ;"================================"
1 ;"<2>DIREKT"
1 ;"<1> SWAP ";
1 ;"50 simwolow wstroke";
1 ;"40 simwolow w stroke ":
1 ;"3787 BYTES":*SWAP
1 ;"344091 g.Rostow-na-Donu pr.Kommunisti~eskii 27 kw 215"
1 ;"3.11,adaptirowannoj dlq raboty"
1 ;"1992 god."
1 ;"- zapisx programnogo obespe- ~eniq na kassety i diskety."
1 ;"- podkl`~enie pereferijnyh ustrojstw (dvojstikow, diskowodow i t.d.)"
1 ;"- izgotowlenie , nastrojka i remont SPEKTRUMow."
1 ;", X - 256*INT(X/256)"'" POKE ";A+2
1 ;", New Attribute Val";
1 ;", INT(X/256)":
1 ;", Box width";
1 ;", Box height"
1 ;"***ELISSEEV VADIM LENINGRAD***":
1 ;"****** NEW VERSION FOR TR-DOS ******"
1 ;" x CO-ORD ";xx;" y CO-ORD ";yy;" "
1 ;" wyzywa`tsq komandoj
1 ;" t d ";z$
1 ;" i rasskazywaet ob":
1 ;" Version 3.11"
1 ;" TOP ELEVTN ";i;" "
1 ;" STOP TAPE "
1 ;" Please Wait ":
1 ;" Oblasti $krana"'"movno mas@tabirowatx";
1 ;" MATRIX SOFTWARE ";
1 ;" Loading Screen$ File "
1 ;" LOADING BYTES ":
1 ;" LEFT ELEVTN 18 TOP ELEVTN 14 "
1 ;" LEFT ELEVTN ";h;" "
1 ;" LEFT ELEVTN
1 ;" LASER BASIC":
1 ;" K left"
1 ;" Grafiku movno sdelatx newidimoji wywoditx ee na $kran srazu pokomande ";:FONT_2
1 ;" DISK VERSION BY ALEXEY ERMAKOV":
1 ;" Beta BASIC":
1 ;" 0 POINTS PLTD MOVE 1 PIXELS"
1 ;" * * * * * "
1 ;" & POKE ";A+3
1 ;" krome togo, BETA-BASIC"'"predostawlqet drugie ne menee"'"interesnye wozmovnosti, s"'"kotorymi movno oznakomitxsq"'"w sootwetstwu`}ej literature."
1 ;" diskowaq wersiq BETABASIC3.11 ispolxzuet dlqraboty revim prerywanijIM2."
1 ;" Okna movno peredwigatx"'" w l&bom naprawlenii."
1 ;" If you have noted important details ( address, length,"
1 ;" BY HJB 1985"
1 ;" POINTS PLTD MOVE PIXELS";
1 ;" LASER "
1 ;" YS MEGABASIC ";
1 ;" Lawrinenko Aleksandru Wladimirowi~u";:
1 ;" by Mike Leaman 1985";
1 ;" W slu~ae wozniknoweniq reklamacionnyh woprosow, obra}atxsq po adresu:"
1 ;" SUPERCODE II"
1 ;" gruppa PENCRAFT qnwarx 1991 g."
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;"
1 :WINDOW_13
1 :WINDOW_12
1 :STIPPLE_15
1 :STIPPLE_1
1 :SOFF:PLAY_0
1 :CURRENT_9
1 :CDEMOLB B
1 ::::::::::::::::
1 :*SWAP:*WINDOW7
1 :*SWAP:*HATCHXM/2
1 :*SCREENSCR:*CLS
1 :*SCREENSCR:
1 :*SCREEN43000
1 :*SCREEN SCR:*WSIZE0
1 :*NEW:*WSIZE0
1 :*NEW:*CCHR:*WSIZE0
1 :*LINEX1,Y1,X2,Y2
1 :*LINEN+13
1 :*LARGE:*CSIZE3
1 :*HATCHXM/2
1 :*FBOXX1,Y1,X2,Y2
1 :*ELLIPSEXM/2
1 :*CLS:*LARGE
1 :*CCHR:*CLS:*ELLIPSE XM/2
1 :*BOXX0,Y0,XM,YM
1 :*BOXN,Y0,N+10
1 9zapisatx99katalog
1 9stertyh>>>
1 9prerwatx9operaci
1 9ignorirowatx9fajl
1 9SPRITES C;
1 9Konec9programmy9
1 9@=Kowalewskij
1 999swobodnoj9zone
1 9510
1 9310
1 9210
1 8<<..''##!
1 899999999999
1 888?9888<<x
1 888?8888<<x
1 8888888pp88888888888888888888888rrrrrrrppppppppppppppppppppppppxrrrrrrrppppppppppppppppppppppppxrrrrrrpppppppppppppppppppppppppxttttttpppppppppppppppppppppppppxqqqqqqpppppppppppppppppppppppppx888888pp88888888888p88888888888x888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888PPPPPPPPPPPPPPPPPPPPPPP888888888PPPPPPPPPPPPPPPPPPPPPPP888888888PPPPPPPPPPPPPPPPPPPPPPx888888888888888888888888888888P888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 888888888GGGGGGGGGGGGGGGGGGGGG
1 8888888888GGGGGGGGGGGGGGGGGGGG
1 8888888888888888888888888888888
1 8888888888888
1 8435
1 8310
1 80000000000
1 7SCREEN C
1 7RTCODE C
1 7230
1 7000000000
1 666676666670?
1 66666707666
1 66666666666
1 660|0|000~
1 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory."
1 6410
1 64000:DLJ ZAPUSKA PROGRAMMQ
1 63980/1, 2 byte eq of Start Address ) with the display
1 61440,3840
1 60899 Now if an error of the type D: BREAK, H:STOP in INPUT or L: BREAK into prog occurs,the prog will not stop but will jump to the line no: whose 2 byte equi- valent was
1 60826. Now if/when an error(other than types 0:OK,8:END,9:STOP)occurs the program will not
1 60713","113","HEX->DEC CONVERTER",E
1 57124 with 195 IF you wish to execute m/c from an address(
1 57114/15 with 1st byte's address.
1 57110/11 with no: of bytes
1 56814
1 56072+256*
1 55644, Byte(followed by 2 stop bits) to be sent."
1 55628, No: (1-8) of drive to be switched on."
1 5550
1 55478,Z with Y=254:Z=71 for top 1/3, Y=252: Z=79 for top 2/3 & Y=0:Z=91 for the attributes as well. To
1 55477,Y:
1 55371/2, 2 byte equivalent of X+15.
1 55368/9 with the 2 byte equivalent of X, where X is the address of the Net Channel.
1 55361/2, 2 byte equivalent of X, where X is the address of the Net Channel. Incidentally,
1 55354/5 with the 2 byte equivalent of X, where X is the address of the Net Channel. If
1 47740,2652
1 3756 does a
1 37 Demo Programs
1 32 simw/str
1 3110
1 30 ROUNTBv
1 2p;wg;c03;f;7e8;p;wg;c07;f ;
1 2p;we;e2;c1;f;c26;=press 'x' to stop or the program goes on forever and ever;c1;6s;5p;
1 2OOOOOOOOOOOOOOOOOO
1 2G\go"]\"E\:t\
1 256128 48:
1 24OOOOOOOOOOOOOOOOOO
1 24,OOOOOOOOOOOOOOOOOO
1 24,(``AAAAAAAAAAAAAAAAAAAAAAAAB24,(```AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD>
1 24,(`AAAAAAAAAAAAAAAAAAAAAAAAA
1 23772/3,Address of name":
1 23770, Length of Filename
1 23766,Other Station Number Afterwards,
1 23766, Drive No: (1-8)
1 23758=0 the packet is a broadcast."
1 23749, Your Station Number
1 23730-5 in the autostart
1 23729 gives its length).Alternatively,first do
1 23728/9, 2 byte eq: of X
1 23728/9, 2 byte eq: of a
1 23728+256*
1 23671 gives the address of the Channel area."
1 23670+256*
1 23613 -2 9999
1 23610,255:
1 2230
1 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
1 22/23"''" Alternatively,use
1 2120
1 2 byte eq of Start Address in 63980/1 ) with the display
1 1Mf~|{'&%$#"#"y
1 1;: RANDOMIZE USR 64624:REM..."
1 1983 SUPERSOFT SYSTEMS
1 1705
1 1415
1 1300
1 1270
1 123456789012345678901234567890
1 12/84 bearbeitet von Gerd Orlamuender Plauen
1 1110
1 110
1 1000^a;r;*a;#;c00;wa;f;b0;
1 0LASER-DMB
1 0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>888888888888888888888888888888>>88:::::88888888888888888888888>>88:888:88888888888888888888888>>88:::::8998888;;;;;;;;;;;;;;;8>>88:::::9999888;;;;;;;;;;;;;;;8>>88888888999888;;;;;;;;;;;;;;;8>>88<<<<<<898888;;;;;;;;;;;;;;;8>>88<<<<<<8888888888888888888888>>88<<<<<<8888888888888888888888>>888888888888888888888888888888>>(((((((((((8888888888888888888>>(((((((((((8888888888888888888>>(((((((((((8888888888888888888>>(((((((((((8888888888888888888>>(((((((((((8888888888888888888>>/((((((((((8888888888888888888>>(((((((((((8888888888888888888>>(((((((((((8888888888888888888>>(((((((((((88888888888888888880>(((((((((((88888888888888888880>000000000000000000000000000000>>000000000000000000000000000000>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Alexey Ermakov presents:Super screen part two.Call this programm:RANDOMIZE USR 47997.
1 08|||84$$EE,9
1 0770000000000000777770000000007777770000000000007777700000000077777777777770000077777000000000777777777777700000000700000000007777000000077000000
1 077000000000
1 00:47:09000:00:000
1 00002222222
1 0000222222
1 000022000000
1 00000007000000
1 000000000000000000000000022
1 000000000000000000000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000022222222222222222200000000000110022222222222222222000000000001100222222222222222220000000000011000000002222222222000000000000112200002222222200000000000000000022002222200000000000000000000000000022220000000000000000000000018x0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000022220000000000000000000000000000222220000000000000000000000000022222200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 0000000000000000000000000000000000000000000000000000000000000000
1 0(LTL(4$$EE*
1 0"'"Turn Page-ENTER /Jump"'"Menu:";:
1 0 to restart the toolkit. If called from #92, only the last 2 digits are considered."
1 0 to restart the toolkit."
1 0 reaccesses the toolkit.":
1 / INDEX/ CUSTOMISE"'"Restart-
1 .If the lower part of
1 ..........
1 .(5)You now have a verified copy of SUPERCODE on microcartridge -it will autostart if you enter
1 . For ways to relocate routines, press
1 . Also try
1 -super CV
1 -super B
1 -proof by making the first line a
1 -B CTPOKE '
1 ,Y3:*LINEN,Y3-1
1 ,L:BREAK are ignored."
1 ,7
1 ,0
1 ,(z$="a")*185
1 ,"UNI-NOTE SOUND-GEN",5
1 ,"UNI-BEEP SIMULATOR",15
1 ,"SHUTTER-SCROLL RIGHT",10
1 ,"SHUTTER-SCROLL LEFT",10
1 ,"SCREEN STORE",1
1 ,"SCREEN OVERPRINT",1
1 ,"SCREEN INVERT",1
1 ,"SCREEN FILL",1
1 ,"SCREEN EXCHANGE",1
1 ,"RIPPLE-SCROLL RIGHT",255
1 ,"RIPPLE-SCROLL LEFT",255
1 ,"PAPER CHANGE",1
1 ,"OBLIQUE SCROLL-OFF",1625
1 ,"MULTI-BEEP SIMULATOR",8
1 ,"MEMORY AVAILABLE",1
1 ,"LORES TOP 2/3 SCR-RGHT",255
1 ,"LORES TOP 2/3 SCR-LEFT",255
1 ,"LORES TOP 1/3 SCR-RGHT",255
1 ,"LORES TOP 1/3 SCR-LEFT",255
1 ,"LORES SCROLL-UP",24
1 ,"LORES SCROLL-LEFT",33
1 ,"LORES SCROLL RIGHT",33
1 ,"LORES R-DIAG SCROLL",22
1 ,"LORES MID 1/3 SCR-RGHT",255
1 ,"LORES MID 1/3 SCR-LEFT",255
1 ,"LORES LOW 2/3 SCR-RGHT",255
1 ,"LORES LOW 2/3 SCR-LEFT",255
1 ,"LORES LOW 1/3 SCR-RGHT",255
1 ,"LORES LOW 1/3 SCR-LEFT",255
1 ,"LORES L-DIAG SCROLL",22
1 ,"LINE RENUMBER",1
1 ,"INK CHANGE",1
1 ,"HIRES SCROLL-UP",175
1 ,"HIRES SCROLL-RIGHT",255
1 ,"HIRES SCROLL-LEFT",255
1 ,"HIRES SCROLL-DOWN",200
1 ,"HIRES NW-DIAG SCROLL",176
1 ,"FLASH ON",1
1 ,"FLASH OFF",1
1 ,"DUAL-NOTE SOUND-GEN",10
1 ,"CLEAR ALL ",1
1 ,"BRIGHT ON",1
1 ,"BRIGHT OFF",1
1 ,"ATTRIBUTE SCR-UP",40
1 ,"ATTRIBUTE SCR-RIGHT",200
1 ,"ATTRIBUTE SCR-LEFT",40
1 ,"ATTRIBUTE SCR-DOWN",40
1 ,"ATTRIBUTE FILL",1
1 ,"ALL-RIGHT SCROLL",32
1 ,"ALL-LEFT SCROLL",32
1 ,"","VIEL SPASS !"
1 , PEEK 23681."
1 , gde Y - wertikalxnaq koordinata w znakomestah , a X - gorizontalxnaq w pikselqh"
1 +A;", 26";
1 ++++++++++
1 +(z$="c")*191
1 +(z$="b")*188
1 +(y(n)-cy)
1 +(x(n)-cx)
1 +"W\#"S\"K\#"Y\
1 +"Q\#"_\##N#F
1 *x;c00;f;c01;f;c02;f;c03;f;c04;f;c05;f;c06;f;c07;f;r;
1 *h\#wG#s#r
1 *b;we;c62;e2;c46;f ;
1 *Y\#"]\:t\
1 *WRAP:*WSIZE0
1 *TRIANGLEX1,Y1,X2,Y2,X3,Y3
1 *SWAP:*triangle16
1 *SWAP:*TPATpat:*WSIZE16
1 *SWAP:*PAINT8
1 *SWAP:*HATCH 127
1 *PLOTXX,YY
1 *PAINTXX-5
1 *PAINTXX-4
1 *PAINTX0+2
1 *PAINTX0+1
1 *O\#####s#r
1 *NEW:*WSIZE0
1 *LINEXX,YY,X,Y
1 *LARGE:*CSIZE1
1 *HATCHXX,YY-5
1 *HATCHXX+5
1 *HATCHX,Y,
1 *FBOXN,Y0,N+10
1 *ELLIPSEXX,YY,XX,XX+1
1 *CCHR:*WSIZE2
1 *CCHR:*WSIZE0
1 *BOXX1,Y1,X2,Y2
1 *"m";E;"SC3.5-4.2":
1 *"m";E;"SC3.5-4.2"
1 )Illegal statement found during executio
1 ):*HATCHXM/4
1 ):*HATCHXM/3
1 ), or just after,part1,and call it from there.It will
1 )
1 (x+14) gives the block no: of the packet requested: it is auto-incremented after each receive."
1 (with Z=A+256*ZZ)as in case(1) overleaf.Note thatthe routine will no longer workat its old address."'"(3)The ROM routines,#120 & #125 are very difficult to relocate (why ever relocate a ROM routine?!) while #77/78 have to be located at the very top of RAM.":
1 (thus useful for program protection, as are #68/ #80)."
1 (X/256)"'"
1 (X+16)>0 then there still is data in the Net Channel: this is sent before the area is deallocated."
1 (X+13)+256*
1 (PAPER 0:INK 6:BORDER 0:BRIGHT 0:CLS
1 (I) How To Make Music
1 (H) Animation
1 (G) How To Create
1 (F) Designing Patterns
1 (E) The On-Screen
1 (D) Simple Diy
1 (C) Colour And How
1 (B) The Television
1 (A) What Your ZX Spectrum+
1 (1-Max,255-Min):";speed:
1 (#UPERPRI"
1 (" 0:OK,8:END,9:STOP are ignored. Or,errors can be suppressed w/o #65:use 1
1 'x<`<<fx000~f>000
1 'True Vid.'
1 'S.CODe-2Bq
1 'Lf`fffL000
1 'Inv. Vid.'
1 'Graphics'
1 'Caps Losk'
1 'CONVER-Utility' & Y.Kovalevsky
1 '/7?@HPX`hpxAIQYaiqyBJRZbjrzCKS[cks{DLT\dlt|EMU]emu}FNV^fnv~GOW_gow
1 '(exit).You willthen have the option of SAVEing the routine on tape,QUITting to BASIC or restarting."
1 ''"MICRO";:FONT_1
1 ''"DUAL ";:FONT_1
1 ''" Estx i drugie poleznye woz- movnosti..."
1 '"Teperx wy move-te bez problem rabotatx s BETA-diskom."
1 '"LOAD Bytes ""gtk"""
1 '"Distribx&torom qwlqetsq ";:FONT_2
1 '"Damit ist der Rechner zur Auf- nahme eines Programmes bereit!"
1 '"Awtor wseh $tih dorabotok Dmitrij Petras, S.-Peterburg, Rossiq"
1 '"- Parameter koennen Zahlen oder Variable sein"
1 '"- Leerzeichen koennen an be- liebigen Stellen und in be- liebiger Anzahl verwendet werden"
1 '"- Folgender Befehl muss REM- Anweisung der Form REM befehl/befehl/befehl/... sein"
1 '"- Die REM-Anweisung kann in der gleichen oder naechsten Zeile stehen"
1 '"- Berechnungen sind nicht moeglich z.B. BOX a/124,45"
1 '"- Benutzungsfehler fuehren nie zum Systemabsturz"
1 '"- Befehle koennen mit Gross-oder Kleinbuchstaben geschrieben werden"
1 '"- Aufruf der MC-Routine mit RANDOMIZE
1 '"- Attribute jeglicher Art sind moeglich, wenn sie vor dem Aufruf in ein PRINT-Statement gesetzt werden z.B. PRINT
1 '"(C) PRODOS BASIC, 1985 BY HJB"
1 '" To access the next routine in the Index, press '
1 '" To access a routine whose no: you know, press '
1 '" If you would like to have the details of this routine again, press '
1 '" If you wish to return to the Index, press '
1 '" - compressed form in RAM -"'"
1 '" Nowaq wersiq(4.21) daet wammnovestwo nowyhwozmovnostej."
1 '" SYS"'" DIR"'" TRDOS"
1 ' (exit)You will then have the option of SAVEing the routine on tape."
1 &ZXDEMO B
1 %gtk Cp
1 %GRAFIK TB
1 %30mcroutC
1 $$$$$$$$$$$$$$$@
1 $$$$$$$$$$$$$$$$
1 #~#N#F_=W(
1 #;wa00240032;c07;f;b0;TA;<stop the tape;
1 #0/#1.If the lower part of
1 #%),/258;>ADGKNSVY
1 # GENERATOR",E
1 # |000000
1 "syntez.1"
1 "superc11"
1 "niq kursorom, dopolnitelxnyh","sredstw dlq obrabotki massiwow","dannyh i blokow pamqti pozwo-","lq`t {iroko ispolxzowatx |tot","qzyk dlq sozdaniq specializi-","rowannyh |krannyh redaktorow i","drugih instrumentalxnyh srestw"," "
1 "niem k";:
1 "dlq zapisi programmy na disk naberite
1 "daet dwuh- tonalxnyj zwu- kowoj signal.":DUAL_100
1 "bytes OK."
1 "brrzZ^NNFD
1 "basic OK.":
1 "b-RUS.sm"
1 "any POKEs that are necessary to tailormake the program for your specific needs) press '
1 "advert.2"
1 "advert.1"
1 "Zeichnet eine Line von x1,y1 nach x2,y2. Sonst wie LINE."
1 "Zeichnet eine Line vom derzeiti-gen PLOT-Punkt zum Punkt x,y. Im Gegensatz zu DRAW wird der Zielpunkt direkt eingegeben."
1 "Zeichnet ein Rechteck. momentane PLOT-Position = linke untere Ecke x-Wert = Laenge y-Wert = Breite"
1 "ZN64-NKA"
1 "WIPE MEMORY-DSGN No. ? ";t$
1 "Uruchomienie DLANu -GO TO 1 Uruchomienie NAPISYPLUS - -GO TO 9990."'"****************"'" Nacisnij [d] lub inny klawisz"
1 "UND","NUN","KOMMEN","DIE","STARS","UNSERER","SAMMLUNG"
1 "To store this routine on a Disc,press
1 "This routine has now been saved.Replay it NOW to VERIFY. If the recording is bad, you will be automatically returned to the SAVE option via the Error-trap routine."
1 "The only limit to its use is to what you actually do with it.",128
1 "The Totally Wicked S.U. Printer.",32
1 "The SAVE is over."'" ":
1 "The Index follows- input the no:of a routine for its description(incl all addresses & POKEs)& anoptional example.Get to know theMenu options (
1 "The Index follows- input the no:of a routine for its description(incl all addresses & POKEs)& anoptional example.Get to know theMenu options ";:
1 "That was the Laser Zap. Now for the Uni-Beep.":
1 "Tekst: ";
1 "TOP ELEVATION 0 to 20 ";i
1 "Setzt PLOT-Position auf x,y,ohneden Punkt sichtbar zu machen. = PLOT
1 "S\"K\"U\#"Y\
1 "SCALING FACTOR ";d
1 "SC3.5-4."
1 "RUS1.fnt"
1 "ROM","0","STAR/RING DRAW",E
1 "ROM","0","PROTECT PROGRAM",D
1 "ROM","0","NON-DELETABLE
1 "ROM","0","MDRVE DIAGNOSIS",D
1 "ROM","0","FREE-SCROLLER",E
1 "ROM","0","FAST
1 "ROM","0","CHR$ SCRAMBLE",E
1 "ROM","0","AUTO
1 "ROM","0","24
1 "ROM","0","2 BYTE CONVERTER",E
1 "RANDOMIZE USR 63237";:
1 "Programmed By",32
1 "Program obslugujacy mozna skaso-wac. Wowczas zmiane kroju mozna uzyskac instrukcja:"'"POKE 23606,x:POKE 23607,y"'"gdzie dla:"'"a- x=124 y=185"'"b- x=124 y=188"'"c- x=124 y=191"'"s- x=0 y=60"
1 "Press any key":
1 "Press any key again":
1 "Prenebrevenie |tim prawilom"'"movet priwesti k 'zawisani`'"'"ili sbrosu sistemy"
1 "Powiekszenie poziome razy ";xs:
1 "Powiekszenie pionowe razy ";ys:
1 "PRODOSDEMO"
1 "PRO-DOS1.1"
1 "PRIWETSTWUET WAS !
1 "PR40/50R"
1 "POKEs necessary for tailormakingthe program to your specific needs ) press '
1 "PARTSCRN"
1 "Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line."
1 "Miejsce napisu Y ";yy:
1 "MegaBejsik movet ispolxzowatx do10 okon odnowremenno , kavdoe iz$tih okon movet imetx swoj raz-mer simwolow."
1 "MB v4.21"
1 "Loescht einen bestimmten Bild- schirmteil oder ein Fenster. DieParameter beziehen sich auf die PRINT AT-Position. x,y = linke obere Ecke des Fensters von dort a Zeichen nach rechts und b Zeichen nach unten"
1 "Lets you define how many chrs per line to print what colour and where to put them any where on the screen, and its all yours.",64
1 "LEFT ELEVATION 0 to 20 ";h
1 "K\#"Y\*=\
1 "If this routine is run on a justreset Spectrum, use #135 first."
1 "INK COLOUR ? 0 TO 7 ";k$
1 "IBM symg"
1 "I Had Nothing Better to Do this Sunday Productions 1991",128
1 "Fuellt eine beliebige Flaeche mit Farbe aus. Man setzt die PLOT-Position innerhalb der Figur und gibt den PAINT-Befehl.Er wechselt nie die Richtung, weshalb manchmal Stellen leer bleiben koennen. Im Bedarfsfall werden einfach mehrere PAINT- Befehle benutzt."
1 "Erlaubt das einfache Zeichnen von Ellipsen. Mittelpunkt ist die momentane PLOT-Position. x-Wert = groesster Radius y-Wert = Grad der Zerrung <10 vertikale Z. 10 Kreis >10 horizontale Z."
1 "ERREICHEN KOENNEN.",
1 "EINEN AUGENBLICK BITTE!":
1 "Delay=";Z/50
1 "DLAN48mc"
1 "DEMO30mcr":
1 "DEMO30mcr"
1 "DEMO-PROGRAMM FUER ""30-ROUTINEN""","ES WERDEN IHNEN EINIGE EFFEKTE","GEZEIGT,DIE SIE MIT DEM ","PROGRAMM ""30-ROUTINEN"""
1 "COPY TO DESGN No. ? ";s$
1 "CHANGE .":FONT_1
1 "Beta BASIC ";:
1 "BRING DSG. ON LINE - No. ";l$
1 "BETA-BASIC3.11 beta-bejsik";:
1 ";A+F;"/";A+G;" with the 2":
1 ";A+F;", INT(X/256)"
1 ";A+E;", X- 256*
1 ";A+E;" /"'" ";A+F;", 2 byte equivalent of X."'"
1 ";("60878/9"
1 "9";"PRESS ANY KEY":
1 "9",D;"Call the
1 "66")'" with X. If an error occurs,prog control will move to
1 "65494","32","PIXEL RIGHT-SCROLL",S
1 "65462","32","PIXEL LEFT-SCROLL",S
1 "65350","112","HEX
1 "65318","32","REPLAY SOUND",D
1 "65290","28","RECORD SOUND",D
1 "65277","8","SURE
1 "65256","21","
1 "65204","52","
1 "65143","61","
1 "65081","62","
1 "65026","55","
1 "65")+("60952/3"
1 "65")+(" Errors besides D:BREAK,H:
1 "64982","44","
1 "64965","17","
1 "64948","17","
1 "64931","17","
1 "64914","17","
1 "64883","31","
1 "64858","25","
1 "64828","30","
1 "64809","19","
1 "64784","25","
1 "64756","28","
1 "64744","12","
1 "64706","38","
1 "64675","31","DUAL-NOTE SOUND-GEN",J
1 "64647","28","UNI-NOTE SOUND-GEN",H
1 "64629","18","SHUTTER RIGHT-SCROLL",I
1 "64611","18","RIPPLE RIGHT-SCROLL",S
1 "64593","18","SHUTTER LEFT-SCROLL",I
1 "64575","18","RIPPLE LEFT-SCROLL",S
1 "64550","25","
1 "64525","25","
1 "64500","25","
1 "64475","25","
1 "64450","25","
1 "64425","25","
1 "64400","25","
1 "64375","25","
1 "64350","25","
1 "64325","25","
1 "64300","25","
1 "64275","25","
1 "64211","59","LOWER-CS PROGRAM",D
1 "64197","14","MEMORY AVAILABLE",E
1 "64098","99","PIXEL DOWN-SCROLL",192
1 "64001","97","PIXEL UP-SCROLL",192
1 "63976","25","
1 "63950","26","LASER ZAP",I
1 "63902","43","
1 "63806","96","BLOCK
1 "63795","11","BLOCK MEMORY INSERT",E
1 "63777","18","
1 "63728","49","
1 "63644","83","
1 "63490","154","
1 "63382","108","INITIALISE",D
1 "63205","177","
1 "63163","42","
1 "63143","20","
1 "63124","19","
1 "63051","73","
1 "63034","17","OBLIQUE SCROLL-OFF",1625
1 "63010","24","MULTI
1 "63000","10","UNI
1 "62943","54","MONOCHROME PROGRAM",D
1 "62857","86","ANALYSE MEMORY",E
1 "62819","38","
1 "62533","286","TAPE HEADER READER",D
1 "62404","129","ANALYSE PROGRAM",E
1 "62087","317","EXPAND PROGRAM",D
1 "61400","687","CONTRACT PROGRAM",D
1 "61000","400","BLOCK
1 "60972","24","AWAIT KEYPRESS",D
1 "60899","72","ON BREAK
1 "60826","73","ON ERROR
1 "60595","118","DEC->HEX CONVERTER",E
1 "60494","101","
1 "60407","86","APPEND STATEMENT",D
1 "60222","185","VARIABLES
1 "60192","30","
1 "60162","30","
1 "60039","123","
1 "60000","38","
1 "6";"THE BEST GAME"
1 "6";"AND 2500 OTHER CAMES"
1 "59988","12","PROGRAM LENGTH",E
1 "59975","13","
1 "59294","681","SUPER-RENUMBER",D
1 "59136","158","PAINT-FILL",E
1 "58892","244","
1 "58833","59","UPPER-CS
1 "58774","59","LOWER-CS
1 "58715","59","UPPER-CS PROGRAM",D
1 "58683","31","BLOCK MEM
1 "58608","75","PIXEL BOXRIGHT SCROLL",S
1 "58571","112","PIXEL BOXLEFT SCROLL",S
1 "58398","173","UNCONFUSE
1 "58263","135","CONFUSE
1 "58115","148","COMPRESS NUMBERS",D
1 "57344","768","SCIFI
1 "57176","168","FOREIGN ACCENTS",E
1 "57159","17","ADAPT PROGRAM",D
1 "57126","33","SURE
1 "57108","18","HEADERLESS FILES",D
1 "57094","14","ANTI-
1 "56640","450","TRACE VARI-SPEED",E
1 "53565"+N*K:
1 "51225"+N*K:
1 "3438","0","LOWER
1 "3190","0","
1 "30mcrout"
1 "23681"-E)/
1 "23670"),:
1 "22";"ZORRO"
1 "22";"XECUTOR";
1 "22";"WALLY";
1 "22";"SABOTEUR";
1 "22";"S.FORTUNE";
1 "22";"ROBINHOOD";
1 "22";"R.COASTER";
1 "22";"PYJAMARAM";
1 "22";"PHANTIS";
1 "22";"PARADISE";
1 "22";"PANAMAJOE";
1 "22";"OP.HORMUZ";
1 "22";"NINJA";
1 "22";"NAVYMOVES";
1 "22";"MAGO";
1 "22";"LEGEND";
1 "22";"KUNG FU";
1 "22";"KOKOTONI2";
1 "20",E;"Also see Routines #22-23."
1 "13";", 0";
1 "13";", 0"
1 "1210"+N*I:
1 "11";"INDIANA J"
1 "11";"HYDROFOOL";
1 "11";"HUMAN";
1 "11";"HIJACK";
1 "11";"FUTURE#2";
1 "11";"FREDDI1-3";
1 "11";"FIST 1-3";
1 "11";"EXPRES";
1 "11";"EXP.R";
1 "11";"EXOLON";
1 "11";"EAGLES N";
1 "11";"DYNAMITE";
1 "11";"DUSTIN";
1 "11";"DRACONUS";
1 "11";"DIZZI 1-6";
1 "11";"DEMON'S R";
1 "11";"CONVOY";
1 "11";"B.DASH1-6";
1 "1";"run":
1 "1";"SUPERCODE3":
1 "1";"SC3.5-4.1"
1 "1";"SC3.5-3"
1 "0","0","RESET",D
1 "-$to";:FONT_2
1 "*******PENCRAFT SOFTWARE*******"
1 "******************************** Nacisnij dowolny klawisz.":
1 "(N):*SWAP:
1 "'FANkorp'";:
1 "'''"Where any part of SUPERCODEII isused in commercial programs,you MUST give prominent credit to this fact, in all packaging and advertising.Also,you must refer within the program to the joint authors of SUPERCODE II,F.VachhaBSc & V.B.Rumsey."'"Provided these conditions are obeyed ,no other restriction on use of SUPERCODEII is imposed." :
1 "'''"Where any part of SUPERCODE is used,a prominent credit must be given to this fact, and to its authors, F.A.Vachha BSc & V.B. Rumsey.":
1 "'''"Where any part of SUPERCODE 3.5 is used in commercial programs, you MUST give prominent credit to this fact, in all packaging &advertising.Also,you must refer within the program to the joint authors of SUPERCODE 3.5, F.A. Vachha & V.B.Rumsey."'"Provided these conditions are obeyed ,no other restriction on use of SUPERCODE 3.5 is imposed." :
1 "''""'"Call:
1 "'"Position: 56640-65535"'"Ramtop: 53589"'"Help Prog:
1 "'"Position: 55000-65535"'"Ramtop: 51000"'"Help Prog:
1 "'"Place: 56640-65535(RAMTOP=56639)Help Prog:
1 ""Enter Microdrive "";A:
1 """FONT""";:FONT_1
1 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""":
1 " dlq malenxkih bukw."
1 " byte equivalent of X, where X is the address of the Channel.":
1 " beta-bejsik";:
1 " before running this subroutine:"
1 " ZX Spectrum +";
1 " X+13 contains the Record number which is not incremented.":
1 " To store this routine on DISC, press
1 " To make a
1 " To delete all lines from a to b
1 " To delete all lines from X to Y
1 " This routine will retrieve any compressed
1 " This routine waits for a key to be pressed,then puts its ASCII
1 " This routine switches off all drives."
1 " This routine places the byte received in location 23681. If timed-out,0 is inserted."
1 " This routine pages in the extra 58 Interface1 System Variables if they have not yet been created."
1 " This routine does a
1 " This routine converts decimal no:s from 0 to 65535 to hex. It clears the screen & prompts 'D:' - now ENTER the dec no:. Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit,&
1 " This routine allows hex input into RAM.POKE the less/more sig (see #101)bytes of the first address to be changed into the system-variable DEFADD(23563/4)
1 " The routine deallocates channel area."
1 " TR-DOS";:
1 " Routines # 18-21 & 47 are all special-effect scrolls."
1 " Press any other key to restart."
1 " PENCRAFT":
1 " Only the last 4 hex digits are converted.Incidentally,ZX BASIC does not allow
1 " Klawiszem [t] laduje sie proce-dure, ktora pozwala pisac napisyczcionka powiekszona."
1 " In some cases the command
1 " If the file had been opened for writing, the current record is written to the first available microdrive sector before the file is closed."
1 " Format is Name,Type(B=Bytes,P= Prog),Length,Start Addr:(if B) or Auto Line(if P)(65535=>none)";:
1 " First switch motor on with #131"
1 " Error#6 if no: was out of range"
1 " Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 1000 & 9999. Do experiment - try 189*
1 " Decimal(0-65535)
1 " Corrupts the listing without affecting program execution: attempting to EDIT.alter lines could be fatal
1 " Call this routine at the start of your program, say by having as
1 " Before calling this routine,
1 " BASIC programs with m.code in
1 " Also see Routine #122"
1 " * (7) Shimmering Sunrise"
1 " * (5) Sketchpad And Example"
1 " * (5) Keyboard Converter"
1 " * (4) Pyramids II"
1 " * (4) Manic Mosaic"
1 " * (3) Spiders And Pyramids"
1 " * (3) Machine"
1 " * (3) Flashing Circles"
1 " * (2) Spiders"
1 " * (2) Patterns"
1 " * (2) Multiplication Table"
1 " * (2) Bubbling"
1 " * (1) Random Squares"
1 " * (1) Number Chart"
1 " * (1) Names"
1 " * (1) Colour Tester"
1 " "," dobawlqet bolee","30 nowyh komand i","bolee 30 nowyh","funkcij k stan-","dartnomu Bejsiku."," Mnogie standart-","nye komandy zna-","~itelxno ras{ire-","ny i usower{en-","stwowany."
1 " "," Nowye komandy","wwodqtsq w revime","psewdografiki, a","nowye funkcii","wyzywa`tsq kak","funkcii polxzowa-","telq."
1 " "," odnim iz osnownyh dostoinstw","qzyka BETA-BASIC qwlqetsq","mnogookonnyj |krannyj inter-","fejs, pozwolq`}ij rabotatx s","otdelxnymi ~astqmi |krana kak","s nezawisimymi |kranami."," krome togo, nali~ie razwitoj","sistemy programmnogo uprawle-"
1 " s 17 do 20"
1 " pered obra-"
1 " operacionnaq sistemaTR-DOS ispolxzuet revimIM1,po|tomu pered kavdymobra}eniem k dos neobho-dimo ustanowitx |tot re-vim komandoj RANDOMIZEUSR 63237,a posle - wos-stanowitx IM2 komandojRANDOMIZE USR 61369."
1 " connect the mic socket of the cassette-recorder to the Spectrum,start playing the tape (Voice is best;Vol=Max), routine waits till a key (
1 " after running this subroutine:"
1 " To access the next routine in the Index, press '
1 " To access a routine whose no: you know, press '
1 " RANDOMIZE USR 61369";:
1 " PRO-DOS 1.1":*NORMAL:
1 " Ispolzujte"'" operatory":FONT_2
1 " If you would like to have the details of this routine again, press '
1 " If you wish to return to the Index, press '
1 " If you have noted important details ( address, length, any"
1 " (I) How To Make Music..."
1 " (H) Animation"
1 " (G) How To Create Computer Characters"
1 " (F) Designing Patterns..."
1 " (E) The On-Screen Sketchpad"
1 " (D) Simple Diy Graphics"
1 " (C) Colour And How To Use It"
1 " (B) The Television Calculator"
1 " (A) What Your ZX Spectrum+ Can Do"
1 " (0) EXIT"
1 " Kroj czcionki uzywanej przezkomputer mozna zmienic naciska-jac:"'"[a]- Amstrad"'"[b]-BBC"'"[c]-""komputerowa"""'"[s]-powrot do czcionki Spectrum"
1 " Bolee podrobnu& informaci& wy movete polu`itx u teh, kto nazwan wy@e."," D.P.,8.5.92"
1 " (6) Stars And Stripes"
1 " (5) Polyhedra"
1 " (4) Solid Triangle II"
1 " (4) Liftoff"
1 " (4) Double Bar Chart"
1 " (4) Bouncing Ball"
1 " (3) ZX Robot"
1 " (3) Solid Triangle I"
1 " (3) Pyramids I"
1 " (3) Chessboard"
1 " (3) Bar Chart"
1 " (2) Symmetrical Patterns"
1 " (2) Star II"
1 " (2) Scuttling Spider"
1 " (2) Rainbow"
1 " (2) Colour Combinations"
1 " (1) Star I"
1 " (1) Squares"
1 " (1) Programming Sounds"
1 " (1) Graphics Character"
1 " (1) Falling Spider"
1 " Po nacisnieciu klawisza [d] laduje sie z tasmy kod DLAN48K. Po zaladowaniu kodu program DLANnalezy pisac od poczatku progra-mu (w wolnych liniach)."
1 " PENCRAFT Software"
1 " NAPISYPLUS"
1 to a DISC, press
1 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards to make room).To have a screen from X-6911 to X use POKE ";A+1
1 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards to make room).To have a screen from X to X+6911, use
1 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards for room).For
1 message,then entering
1 does not close all streams.If this occurs,use this routine."
1 V.RUMSEY
1 User Guide
1 TOP ELEVTN "
1 Superimposes Screen$. >
1 SPUT_39000
1 SEE YOU SOON !
1 SAVE""Name""CODE ";A;",";B'"
1 Programs with '*' mark have no exit. Do BREAK & RUN to return."
1 PRESS ANY KEY TO TURN THE PAGE
1 PRESENT TENEVOJ KONTUR
1 POKE 63951,Duration. To save it use SAVE 'ZAP'CODE 63950,26."
1 POCZATEK PROGRAMU
1 O.Przesmycki wg. YC
1 M.Leaman 1984
1 L.Kluev: microprint fonts";
1 L.Kluev: fonts' installation";#1
1 I.Dumov: 32 chr$/line font";;
1 GOOD BYE ! ALL THE BEST!
1 F.VACHHA
1 F.A.VACHHA BSc 1984
1 ENDPROC_WINDOWS
1 ENDPROC_MORE
1 ENDPROC_INTRO
1 ENDPROC_GRAPHICS
1 ENDPROC_END
1 DATA SECTOR
1 DATA RECORD
1 CURRENT_W
1 CURRENT_8
1 CHANGE_56
1 B CTPOKE
1 @GRAPHICS
1 50 zn/str
1 40 zn/str
1 32 zn/str
1 23729 gives the address of the Net Channel."
1 1984 by Joe Gillespie for Print'n'Plotter Products
1 ...and Animates Screen$ Files!
1 -rewind & replay PART 1 from the start.When you come to this page,press
1 - Press any key to continue
1 - PRESS ANY KEY TO GO ON
1 (DISC)."'"Note address,length,customising POKEs(if any)etc for future ref:":
1 'TRACESPEED'CO
1 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
1 k,0; to
1 at X,enter
1 SF Software,1987
1 S O F T W A R E
1 RNDr. Arnost Vecerka -"
1 Normal
1 Mike Leaman
1 MegaBasic
1 HOMEPOM '
1 HOMEP O
1 GRAPHICS
1 GOOD LUCK YOUNG BROKEN
1 EXTENDED
1 Dmitri Petras
1 Compressed >
1 And Sound Effects
1 23728+256*
1 (76+76)Call:
1 wyzywaetsq komandoj
1 key pressed,play PART 1."'"(3)After the reset enter
1 Graphics
1 To Use It
1 Calculator
1 Sketchpad
1 And Pictures
1 SCREEN MACHINE DEMO
1 Can Do
1 A zatem
1
1
1
1